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MEDLEMS RABAT 20 % 


- den ideelle PC-løsning 

SVI-256SF SVI-640FF 

SVI-640FH X'PRESS 16 

Priser excl. moms - incl. MONOCHROM MONITOR 


SVI 

SPECTRAVIDEO 

Henvendelse: 

OVERGÅRD ANDERSEN A/S 
Dampfaergevej 32 
2100 København 0 
Telelon 01 42 30 00 


INCL. DOS 2.11 
PA DANSK 








INDHOLDFORTEGNELSE 


OPLYSNINGER 


Indhold : side : 

Overgård Andersen 2 
Oplysning 8c Leder. 3 
Hjælp til program 4 
Chance 4-8 
Basic med Peter 9 
SDøoelses tårnet 10-11 
MSX'BIB 12-13 
Menu til PC 13-14 
Den lyserøde panter 15 
PC BIB 16-17 
XPRESS-16 Line-demotips 18 
Brev -fra Sabro 19 
Skrifter på skærmen 20 
Køb/sal g 8c nye medlemmer 21-22 
SVI BIB" 23 
Se den lille kattekilling 24-25 
Rettelser til morseprogram 26 
Kaos Kim Kokser 27 
Anmeldelser 28-29 
Læs læs læs 29 
Musik af Johnny 30-31 
Datacraft 32 


Artikler, annoncer eller programmer 
der ønskes optaget i bladet, sendes 
til Kim Andersen eller Preben Lund 
Bånd og disk sendes retur. 


LEDER 

Så gik endnu et år, vor det lyk¬ 
kedes at holde liv i vores compu¬ 
ter. Selv de gamle SVI 318/328 er 
ikke blevet glemt, specielt takket 
være vores to svenske redaktions¬ 
medlemmer, der gør et stort arbejde 
inden for denne front. MSX'en, som 
indehaves af størsteparten af med¬ 
lemmerne, har heller langt fra sat 
træskoene. Selvom det er længe si¬ 
den at den sidste MSX'er blev im¬ 
porteret til videresalg her i Dan¬ 
mark, kan vi glæde os over, at der 
hos vor sydlige nabo stadig er stor 
aktivitet. Og når to-døgnsreglen nu 
ser ud til at blive lempet, kan vi 
jo tage på endagsture til det vest¬ 
tyske, og købe grej ind. 

Vi ønsker alle en glædelig jul 
samt et godt nytår, og ser frem til 
et gensyn februar måned næste år. 


Foren ingen hedder: MSX BRUGERKLUBBEN 
Medlemsskab koster 165 Kr. (årligt) 
Salgsannoncer er for medlemmer gratis 
Annoncører : 1/2=300 kr. 1/1=500 kr. 

Medlemskab opnås ved henvendelse til 
foreningens kasserer, eller ved ind¬ 
betaling af kontingent på postgironr. 
8 2 0 6 0 8 2 

HUSK at opgive navn, adresse, postnr. 
og by, samt tlf.nr. og maskintype. 

Bladet hedder : SYNTAX 
Oplag : 800 eks. 

Udkommer : 10 gange årligt (ikke jan 
og juli). 

Tryk : Foto offset. 

Løssalgspris : 17,00 Kr. 

Udkommer næste gang : Februar 


Formand : 

Kim Andersen 

Fundervej 32 

2610 Rødovre 

Tlf . 

nr. 

02 94 26 74 

Kasserer : 

Preben Lund 

Tømmerstrædet 19 

2620 Albertslund 

Tlf. 

nr. 

02 64 76 26 


Redakt ionsgruppen består af formand, 
kasser og følgende : 


Richard Foersom 

Tlf.nr. 01 

22 

26 

34 

Henrik Larsen 

01 

74 

73 

99 

Peter Knudsen 

02 

17 

76 

23 

Søren Mortensen 

01 

69 

77 

40 

Jannik Storm 

01 

65 

74 

59 

Per Under li en 

02 

64 

09 

66 

Henrik Gi 1 vad 

03 

14 

36 

57 

Søren Nielsen 

02 

52 

85 

93 

Jonas Tromborg 

02 

65 

28 

98 

Lars Hansen 

02 

32 

44 

73 

FYN 

Jens Møller 

09 

94 

22 

75 

JYLLAND 

Johnnv B. 

06 

82 

66 

98 

SVERIGE 

Jan Boistrup 

00946. 40- 

-21 

36 

41 

Joakim Tornhi 11 

. 40 

-91 

96 

58 

Maanus Bal 1din 

. 40 

-15 

01 

98 

NORGE 

Kjell Johansen 

00947. 02 

-28 

24 

45 


Copyright. MSX BRUGERKLUBBEN 


OBS. SIDSTE FRIST FOR STOF TIL NÆSTE 
NUMMER ER : 29.1.1989 


Kim Andersen 
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/// jo#'»«/*a*w 


Hej sile SVI venner ! 

Jeg bringer her en forsænket hjælp 
og beskrivelse af et program der var 
i SYMTAXEN Nr. 8-88.Programmet laver 
i al sin enkelhed omslag til kassette¬ 
bånd. Der er lagt nogle printerkoder 
i programmet og ikke alle printere 
kan køre programmet som det er trykt. 

Følgende linier har med koder og tegn 
at gøre. 

linie 275 Q$=chr$<42) kan ændres 
efter eget valg f her skal jeg dog 
komme med et tip på min printer er 
der et tegn der ligner et kolon det 
har ASCII nr. 220 på seikosha 250 prn. 
på sv328 uden ændret karaktersæt 
ligger det samme tegn på LEFT GRPH og 
firkant parentes (ved siden af P) 

Det laver de lodrette streger på om¬ 
slaget . 

Linie 280 : X*=chr$<16) 

Dette er næsten det samme som 
1 print tab.Det bestemmer hvor på 
linien efterfølgende tegn bliver skr¬ 
evet . 

Linie 290 :D*=chr*<14) 

Det får printeren til at skrive eft¬ 
er følgende karekter med dobbelt 
bredde , Dg linie 300 S$=chr$<15) tor¬ 
den tilbage til normal skriftbredde 
igen. Det er kun til rygteskt. 

Jeg håber at i nu kan få programmet 
til at køre på jeres forskellige 
printere det burde være mugligt. 

Venlig hilsen 
Lars B. Olsen 



1 ’ 

2 ’ 

3 ’ 

90 DATAO.0.0.24.24.0.0.0 
100 DATA6,6,6,0,0,6,96,96 
110 DATA6.6.0^24.24 j 0.96.96 
120 DATA102.102.0.0j 0j 0.102.102 
130 DATA102.102,0j24,24j0,102.102 
140 DATA102,102.0.102.102.0.102.102 
150 DATA0.0.0.0.010.0 j1 
160 DATAO.0,0.0.0.0.255,0 
170 DATAO,0,0^0 i o! Cu 0.128 
180 DATA1,l,l,ljl,1,1,1 
190 DATA128.128.128!128.128.128.128 
,128 

200 DATA1,0,0,0,0.0.0.0 

21*0 DATAO, 255,0,0 j 0 j 0,0,0 

220 DATA128,0,0,0,0,0,0^0 

230 DATA0,0,0 j 0,1^ 2 j 2,1 

240 DATA32,80,80,80,90,213.21.20 

250 DATAO,6,0,0,0,128,64,64 

260 DATAl28,64,32j 33,62.6.0.0 

270 DATA64,128,128,0j0.6.6.6 

280 DATAO,6,0.6.0.255.255.255 

290 GQT01480 

300 F0RX1%=256T0983:VP0KEXi%+768. (2 
55-VPEEK(Xl%)):NEXTX1% 

310 REST0RE90:F0RX1%=1792T01951:REA 
DK:VPOKEX1 % ,K:NEXTX1%:RETURN 
320 RETURN 

330 A$="vl5o4t220sl0m8000" 

340 A$=A$+"14ggabggf + .18d14ggabl2gl 
4f+dggabo5co4bagf+def+12ggl4e.18f +1 
4edef +12gl4d.1 Se 14dco3bo4c12d14e.18 
f+14edef+gedgf+al2qq" 

350 PLAYAS 
360 RETURN 
370 Pl%=l:BA=0 
380 LOCATEX1%,X2% 

390 PRINTIN* 

400 L0CATEX1%,X2% 

410 PRINTCHR$(ASC<MID$(IN$.Pl%.1))+ 
96) ; 

420 T*=INKEY*:IFT$= M "THEN420 

430 IFT$=CHR$<13)THEN520 

440 IFT$=CHR$(8)THEN550 

450 IFT$=CHR$(28)THEN610 

460 IFT$=CHR$(29)THEN660 

470 IFT$=CHR$(18)THEN710 

430 IFASC(T$) < 320RASC(T$)>122THEM42 









490 MID*(IN*.P1%.i)=T*:L0CATEXi%.X2 

%:printt*:X l%=xl%+l:Pl%=Pl%+l 

500 IFP1%=LE%+1THENXI%=X1%-1:BEEP:P 

1%=P1%-1 

510 G0T0400 

520 L0CATEX1%.X2% 

530 PRINTCHR*<ASC(MID*<IN*.Pl%.1>)> 
; 

540 BEEP'.RETURN 

550 IFP1%=1THENBEEP:G0T0420 

560 L0CATEX1%.X2% 

570 PRINTCHR*(ASC(MID*(IN*.Pl%.1)> > 


580 IN*=LEFT*(IN*.Pl%-2)+RIGHT*(IN* 
. LE%-P1%+ 1 ) + 11 " 

590 P1%=P1%-1:X1%=X1%-1:L0CATEX1%.X 
2%:PRIMTRIGHT*(IN*.LE%-P1%+1) 

600 G0T0400 

610 IFP1%=LE%THENBEEP:GGT0420 
620 L0CATEX1%.X2% 

630 PRINTCHR*(ASC(MID*<IN*.Pi%.1))) 


640 P1%=P1%+1:X1%=X1%+1 
650 G0T0400 

660 IFP1%=1THENBEEP:G0T0420 
670 L0CATEX1%. X2% -» 

680 PRINTCHR* < ASC(MID*(IN*.P1%.1))) 


690 P1%=P1%-1:X1%=X1%-1 
700 G0T0400 

710 IFRIGHT*(IN*.1)< >" "THENBEEP:GO 
T0420 

720 IN*=LEFT*(IN*.Pl%-1)+" "+MID*(I 
N*.Pl%.LE%-P1%) 

730 LOCATE Xl%.X2%:PRINT MID*(IN*.P 
1%.LE%-P1%+1):GOTO 400 


740 CLSsPRI tøT" .- 

750 PRINT" I OMGANG: 
I" ! 


770 PRINT"I 
KAST !"? 

780 PRINT" I- 


MULIGHEDER 


-4 " ! 


790 PRINT"I ENERE 
" ;N1*;" IMI"; 

800 PRINT"I TOERE 

";W 2 *;" I s l"; 

810 PRINT"I TREERE 
":W3*;" 1X1"; 

820 PRINT"I FIRERE 
" ;wi*;" l—I"; 

830 PRINT"I FEMMERE 
";N2*;" i l"; 

840 PRINT"I SEKSERE 
";W3*;" lc I"; 

850 PRINT" I- 

";W1*;" l l"; 



860 PRINT"I B O N U 
";W2*i" ih l"; 

870 PRINT" I- 

";W3*;" i i"; 

880 PRINT"I TRE ENS 
";N1*;” IAI"! 

890 PRINT"I 
";W2*;" 1 I" 

900 PRINT"I 
" ;N3*;" INI" 

910 PRINT" I 
";M1*5" l i" 

920 PRINT" 1 

";W 2 *;" i c i " . 

930 PRINT"I FEM ENS 
";W3*;" l l"; 

940 PRINT"I CHANCEN 
IE I " ; 

950 PRINT" »-,- 

" ;W5*;" l l"; 

960 PRINT" ITOTAL 

" ;W6*;" l—i ”; 

970 L0CATE8.23SPRINT" •- 
-1-' " ! : LOCATE O. O 


FIRE ENS 

FULD HUS 
; 

LILLE GADE 

STORE GADE 
; 



980 RETURN 

990 L0CATE8.1:PRINTRD*:L0CATE21.1: P 
RINTN*(PL) 

1000 F0RF=1T06 

1010 IFT(PL.F)=-lTHEN1050 

1020 PO*=STR*(T(PL.F) ) 

1030 IFLEN(PO*)< >4THENP0*=" "+PO*:G 
0T01030 

1040 L0CATE17.F+4:PRINTP0* 

1050 NEXTF 

1060 F0RF=7T013 

1070 IFT(PL.F)=-1THEN1110 

1080 PO*=STR*(T(PL.F)) 

.1090 IFLEN (PO*) < >4THENP0*=" "+PO*:G 
OTO 1090 

1100 LOCATE17.F+7:PRINTPO* 

1110 NEXTF 

1120 2W=T(PL.1)+T{PL.2)+T(PL.3)+T(P 
L . 4 ) +T(PL.5)+T(PL.6) 

1130 IFZW< 64THENZW=0ELSEZW=35 
1140 ZW*=STR*(ZW) 

1150 IFLEN(ZW*)<>4THENZW*=" "+ZW*:G 
OTO 1150 

1160 L0CATE17.12:PRINTZW* 

1170 GE=ZW:FORJ=1T013 

1180 IFT(PL.J)< >-1THEN6E=GE + T(PL.J) 

1190 NEXTJ:R(PL.RD)=GE 

1200 GE*=STR*(GÉ) 

1210 IFLEN(GE*)<>4THENGE*=" "+GE*:G 
OTO 1210 

1220 L0CATE17.22:PRINTGE* 

1230 RETURN 
1240 LW=RND(-TIME) 

1250 PLAY"01T255L64S14M5" 

1260 L0CATE26.6:PRINTCHR*(223+(INT( 
RND(1)*6)+1)):PLAY"G" 
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1270 IFSTRIG(0)=-10RSTRIG(1)=-10RST 
RIG < 2)=-1THENBEEP:GOTO 1370 
1280 L0CATE26.9:PPINTCHR* < 223+(INK 
RND(1)*6)+1)):PLAY"G" 

1290 IFSTRIG(O)=-10RSTRIG(1)=-10RST 
RIG(2)=-lTHENBEEP:GOTO 1370 
1300 L0CATE26.12:PRINTCHR$(223+(INT 
(RND<1)*6)+1)):PLAY"G" 

1310 IFSTRIG(O)=-10RSTRIG(l)=-10RST 
RIG(2)=-lTHENBEEP:GOTO 1370 
1320 L0CATE26.15:PRINTCHR*<223+(INT 
(RND<1)*6)+1)):PLAY"G" 

1330 IFSTRIG(O)=-10RSTRIG(1)=-10RST 
RIG(2)=-1THENBEEP:G0T0 1370 
1340 L0CATE26.18:PRINTCHR*(223+<INT 
(RND(1)#6)+1)):PLAY"G" 

1350 IFSTRIG(O)=-10RSTRIG(1)=-10RST 
RIG (2) — 1 THENBEEP: GOTO 1370 
1360 GOTO 1250 

1370 F0RF=1T05:W2(F)=INT(RND(1)*6)+ 
1:NEXTF 

1380 FORF®1TOS 

1390 IFW1<F)=-1THENW1<F)=W2(F> 

1400 NEXTF:S0=1:FORF=1T06:FORG=1T05 

1410 IFW1(G)=FTHENW2(SO)=W1(G):SO=S 
0 + 1 

1420 NEXTG.F 

1430 F0RF=1T05:W1(F)=W2(F):NEXTF 
1440 F0RF=1TG5 

1450 L0CATE26.6+((F-l)*3):PRINTCHR$ 
(223+W1<F)) 

1460 NEXTF:BEEP 

1470 RETURN i 

1480 CLEAR3000:SCREEN1:KEYOFF:COLOR 
1.15.15:WIDTH32:CLS 


1490 PRINT" 

1500 PRINT" 
$ » 

1510 PRINT" 

m " 

1520 PRINT" 

m " 

1530 PRINT" 
# IMV" 

1540 PRINT 
155O # PRINT" 

TséCi PRINT" 
1570 PRINT" 
1580 PRINT" 
1590 PRINT" 
1600 PRINT" 
1610 PRINT" 


w# m m mm m « m 
« mmmmmmm* 
m mm mm m m m * 
« •••••••• 

mm mm® mm mm 


ET SUPER SJOVT O 
- SPIL -- 

JOHNNY B. MUSIK 
TLF. 06-826698 


I ■ 

1620 PRINT" I 

I" 

1630 PRINT" i—-—-— 

1640 G0SUB330 
1650 G0SUB300 
1660 LOCATEO.16 i PRINT" ,— 

1670 PRINT"I HV0RMAN6E SPILLERE < 

1 - 5 > ? I"; 

1680 PRINT"I SPILLERE: 

1" ; 

1690 PRI NT" '----- ■ 

1700 LE%=1:IN$=" ":X1%=12:X2%=18 
1710 G0SUB370 

1720 IFIN*=" "ORVAL(IN$)<10RVAL(IN$ 
)>5THEN1660 

1730 MI=VAL(IN$>:DIMN$(MI>:DIMT(MI. 
13) : DIMR (NI. 3) *.W1$=CHR$(230) +CHR$<2 
31)+CHR$(232):DIMKW(HI):DIMSO(NI) 

1740 W2$=CHR$(233)+CHR$ < 229)+CHR*(2 
34):W3$=CHR$ < 235)+ CHR&(236)+CHR$(23 
7):DIMW1(5):DIMW2<5):W5$=CHR&<238)+ 
CHR$(239)+CHR$(240):W6$=CHR$(32)+CH 
R$<241)+CHR*(242) 

1750 F0RF=1T0MI:BEEP:Y$=STR$(F>: Y*= 
RIGHT$(Y$.LEN(Y$)-1) 

1760 LOCATEO.16:PRINT" 


1770 LOCATEO f 16:PRINT" ,-- 

1780 PRINT"I NAVNE'PAA "Y*".SPILL 

ER I"; 

1790 PRINT"I SPILLER: 

I " ; 

1800 PRI NT" *— —— .-- 

1810 LE%=10:IN$=" ":X1%=12 

:X2%=18 

1820 G0SUB370 

1830 N*(F)«IN*:NEXTF 

1840 FORRD=1T03 

1850 F0RTY=1T0MI: F0RTE=1T013: T(TY. T 

E)=-l:NEXTTE.TY 

1860 IFRD-1THENRD$="I" 

1870 IFRD=2THENRD$="II" 

1880 IFRD=3THEMRDÆ="III" 

1890 F0RDU=1T013 
1900 FORPL=1TOHI 
1910 G0SUB740 
1920 G0SUB990 

1930 F0RF=1T05:W1<F)=-1:NEXTF 

1940 WER=1 

1950 G0SUB1240 

1960 IFWER=3THEN2220 

1970 Xl%=6 
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1980 F0RTE=1T05:0W(TE)= -l INEXTTE 2340 L0CATE1.Xl%:PRINT" 


1990 L0CATE28.6:PRINT"<" 

2000 IFSTICK(O)=10RSTICK(1)=10RSTIC 
K(2)=1THENGOTO 2040 

2010 IFSTICK(O)=50RSTICK(1)=50RSTIC 

K(2)=5THENG0T0 2070 

2020 IFSTRIG(O)--10RSTRIG(1)--10RST 

RIG <2)=-lTHENGOTO 2100 

2030 GOTO 2000 

2040 ’FRA OVEN 

2050 IFX1%-3=3THEN2000 

2060 L0CATE28.X1%:PRINT" ":X1%=X1%- 

3:L0CATE28.X1%:PRINT"<":F0RPAU=1T05 

O:NEXTPAU:GOTO 2000 

2070 ’FOR NEDEN 

2080 IFX1%+3=24THEN2000 

2090 L0CATE28.X1%:PRINT" ":X1%=X1%+ 

3:L0CATE28.X1%:PRINT"<":F0RPAU=1T05 

o: nextpau:goto 2000 

2100 ’ START 

2110 IFX1%=21THEN2150 

2120 IFOW(Xl%/3-l)=-lTHEN2140 

2130 OW <Xl%/3-l)=-l:L0CATE26.Xi%-1: 

PRINTCHR*<231)*. F0RPAU=1T050: NEXTPAU 

IGOTO 2000 

2140 OW (Xl%/3-l)=l: L0CATE26. Xl%-1: P 
RINTCHR*(243):FORPALM iT050:NEXTPAU: 
GOTO 2000 

2150 F0RTE=5T017STEP3: L0CATE26. TE*. P 
RINTCHR* (231) *. NEXTTE:L0CATE23.21: PR 
INT" ":F0RTE=1T050:NEXTTE 
2160 IFOW(1)=-1ANDOW<2)=-1ANDOW(3) = 

-1ANDOW(4)=-1ANDOW(5) = -1THEN2220 

2170 WER=WER+1 

2180 F0RTE=1T05 

2190 IFOW(TE)=1THENW1(TE)=-1 

2200 NEXTTE 

2210 GOTO 1950 

2220 X1%=5:L0CATE1.5:PRINT">" 

2230 IFSTICK(0)=1QRSTICK<1)=10RSTIC 
K (2) = 1THENGOTO 2270 
2240 IFSTICK <O)=50RSTICK(1)=50RSTIC 
K (2)=5THENG0T0 2320 

2250 IFSTRIG(O)=-10RSTRIG(1)=-10RST 

RIG(2)=-lTHENGOTO 2370 

2260 GOTO 2230 » 

2270 ’FOR OVEN 

2230 IFX1%-1=4THEN2230 

2290 L0CATE1.X1%:PRINT" " 

2300 X1%=X1%-1:IFX1%<14ANDX1%>10THE 
NX1%=10 

2310 L0CATE1.Xl%:PRINT">":F0RPAU=1T 
050:NEXTPAU:GOTO 2230 
2320 ’FORNEDEN 
2330 IFX1%+1=21THEN2230 


2350 X1%=X1%+1:IFX1%>10ANDX1%<14THE 
NX1%=14 

2360 L0CATE1.Xl%:PRINT">":F0RPAU=1T 

050:NEXTPAU:GOTO 2230 

2370 ’START 

2380 IFX1%>10THEN2450 

2390 6R=Xl%-4 

2400 IFT(PL.GR)< >-lTHENBEEP:GOTO 22 
30 

2410 T(PL.GR)=0 
2420 F0RTÉ=1T05 

2430 IFW1(TE)=GRTHENT(PL.GR)=T(PL.G 
R) +GR 

2440 NEXTTE:GOTO 2920 
2450 GR=Xl%-7 
2460 IFGR=8THEN2590 
2470 IFGR=9THEN2650 
2480 IFGR=10THEN2710 
2490 IFGR=11THEN2780 
2500 IFGR=12THEN2820 
2510 IFGR=13THEN2890 
2520 ’TREER KAST 

2530 IFT(PL.GR)< >-lTHENBEEP:GOTO 22 
30 

2540 IFW1(1)=W1(2)ANDW1(2)=W1(3)THE 
N2580 

2550 IFW1(2)=W1(3)ANDW1(3)=W1(4)THE 
N2580 

2560 IFW1(3)=W1(4)ANDW1(4)=W1(5)THE 
N2580 

2570 T(PL.GR)=0:G0T0 2920 
2580 T(PL.GR)=0:F0RTE=1T05:T(PL.GR) 
=T(PL.GR)+W1(TE):NEXTTE:GOTO 2920 
2590 ’FIRER KAST 

2600 IFT(PL.GR)<>-lTHENBEEP:GOTO 22 
30 

2610 IFW1(1)=W1(2)ANDW1(2)=W1(3)AND 

W1(3)=W1(4)THEN2640 

2620 IFW1(2)=W1(3)ANDW1(3)=W1(4)AND 

W1(4)=W1(5)THEN2640 

2630 T(PL.GR)=0:GOTO 2920 

2640 T(PL.GR)=0:FORTE=1T05:T(PL.GR) 

=T(PL.GR)+W1(TE):NEXTTE:GOTO 2920 

2650 ’FULD HUS 

2660 IFT(PL.GR)< >-lTHENBEEP:GOTO 22 
30 

2670 IFW1(1)=W1(2)ANDW1<2)=W1(3)AND 
W1(4)=W1(5)THEN2700 

2680 IFW1(1)=W1(2)ANDW1(3)=W1(4)AND 

W1(4)=W1(5)THEN2700 

2690 T(PL.GR)=0:GOTO 2920 

2700 T(PL f GR)=25:GOTO 2920 

2710 ’LILLEGADE 

2720 ift<pl.grx>-ithenbeep:goto 22 
30 
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2730 IFW1<1)=W1(2)-1ANDW1(i)=W1(3)- 

2ANDW1(1>=W1(4)-3THEN2770 

2740 IFW1 <l)=Wi(3) -1ANDW1 <1>=W1 <4>- 

2ANDW1 C1)=W1(5)-3THEN2770 

2750 IFW1(1)=W1(2)-1ANDW1(l)=Wi(3)- 

2ANDW1(1)=W1(5)-3THEN2770 

2760 T(PL f GR)=0:GOTO 2920 

2770 T (PL.GR)=30:GOTO 2920 

2780 ’STOREGADE 

2790 IFT(PL.6R)<>-1THENBEEP:G0T0 22 
30 

2800 IFW1(1)=W1(2)-1ANDW1(1)=W1<3>- 
2ANDW1(1)=W1<4)-3ANDW1(1)=W1(5)-4TH 
ENT(PL.GR)=40:G0T0 2920 
2810 T(PL.GR)=0:G0T0 2920 
2820 ’FEMMMERE 

2830 IFW1(1)=W1(2)ANDW1<2)=W1(3)AND 
W1(3)~Wi(4)ANDW1(4)=W1<5)THEN2860 
2840 IFT <PL.GR)=-1TKENT <PL. GR)=0:GO 
TO 2920 

2850 BEEPZGOTO 2230 

2860 IFT(PL.GR)=OTHENBEEP:GOTO 2230 
2870 IFT(PL.GR)=-lTHENT(PL.GR)=0 
2880 T(PL.GR)=T(PL.GR)+50:GOTO 2920 
2890 »CHANCEN 

2900 IFT(PL.GR)< >-1THENBEEP:GOTO 22 
30 

2910 T(PL.GR)=0:F0RTE=1T05:T(PL.GR) 
~T <PL.GR)+W1(TE):NEXTTE:GOTO 2920 
2920 G0SUB990:FORPAU=1T01000:NEXTPA 
U.PL.DU.RD 

2930 Al$="V1503T160S2M10000" 

2940 A2$="L8DL8F +AA.L16BL8AF+D.L16E 
LSF+F+EDL4E.04L8DF+AA.L16BLSAF+D.LI 
6EL8F+F + EEL2D05L4GGL8BL4BL8BAAF +DL4 
E.04L16DEL8F+AA.L16BL8AF+D.L16EL8F+ 
F+EEL2D" 

2950 A1*=A1*+A2* 

2960 PLAVAl* 

2970 FORTE=1T0MI 

2980 KW(TE)=R(TE.1)+R(TE.2)+R(TE.3) 
2990 NEXTTE 
3000 G0SUB3120 

3010 F0RTY=1T0MI:PS=0:FORTE=1TOMI 
3020 IFKW < TE)>PSTHENLZ=TE:PS=KW(TE) 
3030 NEXTTE 

3040 L0CATE1.TY+6:PRINTKW(LZ)!:LOCA 

te6.ty+6:print"Pljnke hat '• ;n*(lz) 

3050 KW <LZ)=-i:NEXTTY 
3060 G0SUB3250 
3070 PLAYA2* 

3080 T*=INKEY*:IFT$=""THEN3080 
3090 IFT*="i■ORT*="J"THENRUN 
3100 IFT$="n"ORT*="N"THENEND 
3110 GOTO 3080 


3120 CLS:LOCATEO.2 s PRINT" 


3i30 PRINT”I 
I"; 

3140 PRINT" «- 


SLUTSTILLING 


3150 PRINT 
3160 PRINT"r 


3170 PRINT" 
I " i 

3180 PRINT" 
I" 5 

3190 PRINT" 
I" ; 

3200 PRINT" 
I " ! 

3210 PRINT" 
I 11 i 

3220 PRINT" 
I " ; 

3230 PRINT" 


3240 RETURN 

3250 LOCATE 0.15SPRINT", 


3260 PRINT"I 
I " ! 

3270 PRINT " ' 
3280 RETURN 


ENDNU ET SPIL <J/N> 









IBISIElBlUEia 


-i- 

rmtmmszswimÆmjzmmmÆmmsmmsmmmsmrsjmmsmsmmisimsmssssssssisisisTsisiznsx 

j**9<S‘*æ mæ?o> j»æråFK 

raraJSJarELSsjsfaiHfamfsiamraiaimimfEfmimiarafajBrBrafaraimraraiajmimiaimrsjBjmraiaiHraimiafEraraiarafaiEr 


<? 


I sidste nummer skulle vi have 
udskrevet den lille tabel på 
skærmen. Umiddelbart kunne 
programmet ikke køre, fordi der 
var syntaxfejl i. 

I linie 60 skulle stå: 

60 NEXT A 

og i linie 50 skulle der stå: 


Nu skal vi se lidt på betingede 
udtryk. Hvad vil det nu sige?? 
Jo, med anvendelsen af If kan 
man få datamaskinen til at gå 
bestemte veje i sit program på 
ganske bestemte betingelser - 
eller når en eller flere 
betingelser er opfyldt. Til If 
hører et Then. Det vil sige 
HVIS betingelsen er opfyldt SA 
udfør en bestemt transaktion. 


Prøv om du kan løse denne 
opgave uden at kigge længere 
henne i artiklen på, hvordan 
jeg har tænkt mig at løse 
opgaven. 

OPGAVE: 


50 NEXT C 

Dette var imidlertid ikke nok. 
Der var noget galt med linie 30 
- her var STEP-variablen sat 
lig med A. Det vil sige at vi 
programmerede maskinen til at 
løbe i en løkke - startende i 
linie 30 med nul og et spring 
på nul (idet A jo starter 
løkken med nul). 


Lav et program, der spørger, 
hvor gammel man skal være før 
man må køre bil og giver 
mulighed for at indtaste svar, 
hvor programmet fortæller om 
svaret var korrekt. 


I nedstående løsningsforslag er 
der 3 fejl. 


Dette giver ingen 
hvis vi 

STEP-variablen til 
hele meget bedre. 


mening, og 
forandrer 
C går det 


Programmet ser herefter således 
ud: 


10 

FOR C = 1 

TO 

10 

20 

PRINT 



30 

FOR A = 0 

TO 

(C * 10) 


STEP C 



40 

PRINT A; 



50 

NEXT A 



60 

NEXT C 




10 PRINT "HVOR GAMMEL SKAL MAN 
VÆRE FØR MAN MA FA KØREKORT?” 
20 INPUT A 

30 IF A < 18 JHEN PRINT "SVARET 
ER FORKERT” 

40 GOTO 10 

50 IF A = 18 PRINT "SVARET ER 
KORREKT” 

60 IF B > 17 THEN PRINT "SVARET 
ER KORREKT" 

70 END 


Prøv om du kan finde fejlene! 


peter 


Stregerne viser hvordan For- 
Next-1økkerne hænger sammen. 

Man må aldrig lave løkker sådan 
at stregen fra For til Next 
krydser en anden 

For-Next—streg. 








10 

20 

'<<<<<<<<<<<<<<<<<<< 

'> > 

Microso-f t 

30 

40 

'< SPOK TORNET < 

Ex tended 

50 

60 

'< ETT SPEL AU C 

BASIC 

70 

80 

'< HENRI C LINDEN < 

Uer 1.0 

90 

100 

'<<<<<<<<<<:<<<<:<<<<< 

' CSAUE"SPOKT." 4537 

Bytes used 


110 DEFINT A-G.I-2:60SUB5S0 

120 WIDTH39:TROFF:COLOR 10.0.1:SCRE 
EN 1.2 

125 "-SPRITES- 

13 0 RESTCiRE: FOR I = 1T06: S$=STRI NG* < 32 
. 0) :FORJ=1TO16:REAGA*.sMID*< S*.J. 
i)=CHR*<UAL< ,, kB"+A*)):MI D*< S*. J+ 1 6 . 
1)=CHR*<UAL< "kB"+B$>) :NEXT : SPRITE*< 
I)=S*:NEXT 

135 -START UARDEN- 

140 X1=30:X2=100;X3=80:X4=201:F=0 
150 N=1:M=2 i P=0:K=3:X=40:Y=114:G=Q1 

155 '---- SPELPLAN - 

160 LINE< 0.130) - < 256.14 0).11.BF s LIN 
E< 0. 150)-<250.158).1 .BF 
170 GOSUB530:COLOR15:LOCATE30.170:P 
RINT”SUARIGHETSGRAD"Q1}:C0L0R7:PRIN 
T" SPOK TORNET 

AU H.LINDEN 

180 LINE<20.130)-<30.0).14.BF:LINE< 
236. 130)-<226.0).14.BF sLINE<33.97)- 
<203. 100). 4. BF;LINE< 53.67)-< 223.70) 

. 4. BF s LINE<33.40)-< 203.37).4.BF 
190 LINE<213.100)-<216.130).10.BFsL 
INE< 41.96)-<44.70).10.BF s LINE<213.6 
6)-<216.40).10.BF 

195 '- DÅTASATSER - 

200 DATA 0.0.1.11110000.11-11111000 

.111 f iiooii oo.i 11.iiooii oo.111.1100 
i ioo. 11 li. 111 i i iob. 1111. il i nooo. 11 
iii.iiiiiboo.niii.il lioooo. linii. 
11 lioooo. liiiin.i i iooooo. 11111111. 

1 1 100000. 1 1 1 1 1 1 1 ’l . 1 1000000. 101 101 10 

.ilooooob.o.o 

210 DATA 0.0.0.0.0.0.0.10001010.0.0 

1010000.o.booobiio.o.oii ioooo.o. ioo 
ooioo.i i ibooioio.i i i.11looioo.i i 11. 

111 loboo. 11111. i i 11 iboo. liiii.iiin 
ooo. iiiii.iiiiiooo.iiii.il lioooo.11 
i.i iiooooo 

220 DATA 0.0.0.0.0.0.0.0 f 0.0.0.0.0. 

o.o.o.iiin.iii i i ooo. i iooi i r i iooi io 
Orliiboii.liooiiio.liiiiiii.1111111 
i.iioi111 i.1111ioii.iiooooo f oooooii 


o.iiiiii.iiiiiioo.iiiii.iiii iooo 

230 DATA O.O.O.O.O.O.O.b.111000.0.1 

o i i i i o. o. i i 111 i i i. b. i i i i o 11 . o. 11 o. o 
.11 o.o.iioo.iioooooi. iiioi.il ioooi i 
.iiooi.ioiioiio.iiooi.ioi ioi io. 1111 
.oooii i i o.lio.obooiioo 

240 DATA 0.0.0.0.0.0.0.0.0.0.0.0.0. 

o.i.looooooo.ib.bibooobo.i.lboboboo 
.iobi.iooioobo.ioooioii.i 1010001 .io 
o o 111 i.i liioooi.iiooini. 111 iooii.i 
1111 li i. 111111 il.iloooooo .11 

250 DATA 1.0.0.10000000.0.01000000. 
0 . 00100000 . 0 . 01000000 . 0 . 10000000 . 1 . 
0 . 10 . 0 . 100 . 0 . 10 . 0 . 1 . 0 . 0 . 10000000 . 0 . 
oioobooo.o.obiobooo.o.o ioooooo.o .10 
000000 

260 GOSUB270:60T0350 

265 "- LOOP FOR MONSTER ---- 

270 X1=X1+ Q:X2=X2-QsX3=X3+G:X4=X4-Q 

:PUTSPRITE1.<X1.21).15.1sPUTSPRITE2 

.<X2.50).13 f 2sPUTSPRITE3 f <X3.80).9. 

5:PUTSPRITE4.<X4.114).2.4 

280 I FPOINT <X.Y+io)=14ANDY<25THENP0 

=PO+100XQ1sN=N+1:X=40:Y=114:Q=Q+.5: 

X4=201:G0SUB530:60T0260 

290 I FX1>187THENX1=30 

300 IFX2<50THENX2=201 

310 IFX3>187THENX3=30 

320 IFX4<30THENX4=201 

330 IFX3>90ANDX3<960RX3>150ANDX3<15 

6 THENPUTSPRITE10 t <X3.70).10.6:BEEPE 

LSEPUTSPRITE10.<200.200).1.6 

340 RETURN 

345 •--HUUUDLOOP- 

350 PUTSPRITE5.<X f Y) f 7.K 
360 IF3TRIG< 0)ORSTRIG<1)THENG0SUB41 
0 

370 ONSPRITEGOSUB490:SPRITEON 
380 IFX<30THENX=30ELSEIFX>210THENX= 
210 

390 IFSTICK< 0)>50RSTICK< 1)>5THENX=X 
-3:M=-2ELSEIFSTICK<0)>10RSTICK<1)>1 
THENX=X+3:M=2 
400 GOTO 260 

410 I FPOINT<X+ 8 . Y)=10THEN500 
415 '-HOPP- 

420 FORY=YTOY-17STEP-1:GOSUB270:PUT 
SPRITES.<X.Y).7.K:X=X+ <M) 

430 I FX<3OTHENX=30ELSEIFX>210THENX= 
210 

440 NEXT 

450 FORY=YTOY+17:GOSUB270:PUTSPRITE 
5.<X.Y).7.KiX=X+<M) 

460 iFX<30THENX=30ELSEIFX>210THENX= 
210 
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470 NEXT 
480 RETURN 

485 '-SLUT 1- 

490 S0UND8.10:FORH=1TG255:SOUNDO.H: 
COLOR..HÅND 15:NEXT s SGUND8.0 s FGRH=IT 
0255:COLOR..HÅND 15 :NEXTH sCOLOR,.1:6 
OT0550 

495 ✓- MANINGSBYTE - 

500 IFY>90THENQZ=33ELSEQZ=29 
510 FORY=YTOY-Q2STEP-1:GOSUB2?0:PUT 
SPRITE5.<X.Y). 7. K sNEXT:PO=PO+100XQ1 
:GQSUB530 
520 GOT0350 

525 •'-PGANGUT SKRI UN 1NG- 

530 BEEP:LINE<0.150)-<250.158).1.BF 
: LOCATE30.150: C0L0R6: PR I NT" POANG" PO 
:L0CATE110.150:COLOR10:PRINT"RECORD 
"HI:LGCATE190,150:COLOR12:PRINT"NIM 
A"N 

540 RETURN 

545 '-SLUT 2- 

550 1FHI<P0THENHI=P0 

560 SPRITEOFF:FORU=132T0133:LOCATE3 

0. U: COLOR 1: PR I NT 11 GANE OMER GAME O 

MER GAME OMER":NEXT 

570 IFSTRI6<0)ORSTICK< 0)ORSTRIG<1)0 

RSTI CK< DTHEN1 10ELSE570 

580 G0SUB59 0:GOT 0620 

535 '- SPELFORKLARING - 

590 NI DTH40:CLICKOFF:SOUNDOFF:COLOR 
1.15.15:SCREEN0.0:LOCATE..0 
600 PRINT" ■ ■ 



6 10 PRINT i PRINT:RETURN 

615 l:a SPELFORKLARINGEN - 

620 PRINT" 8P0KT0RNET gar- ut pa a 
tt -forsoka na vaggen langst upp 

till vanster .01 ika faror- lurar 
pa vågen upp.T.ex. ormar. rymd-far 

koster och naturligtv is sp 

ok en . 

630 PRINT:PRINT:PRINT:PRINT:PRINT" 
Tryck pa ";:PRINTCHR^<27)+" 
D FIRE "+CHR*<27)+"q" 

640 IFSTRIG< 0)ORSTRI6<1)THEN650 ELS 
E 640 

645 x - 2:a SPELFORKLARINGEN - 

650 CLS:G0SUB59Q 

660 PRINT" Svar ighetsgraden i spe 


let ar -farten pa monstren.For v 

arje gang du har lyckats att 

komma till vaggen langst upp til 
1 vanster sa okar -farten pa mo 

nstren.Upp till nasta våning 

kommer du lat tast genom att ha u 
ng." 

670 PRIMT" mitten av din gubbe pa 
den gula stolpen plus ett 

tryck "pa -fire. For att styr 

a och hoppa anvand en jovs 

tick i port 1." 

680 PRINT:PRINT:PRINT" Tryc 

k pa " *, :PRINTCHR*<27) + "p FIRE " +CHR 
■$< 27) + " q" 

690 I FSTRI G< 0) ORSTRI G< DTHEN700 ELS 
E 690 

695 - SMARIHETS6RAD - 

700 CLS:GOSUB590:LOCATE7.10:PRINT"S 
varighetsgrad ":LOCATE11.15:PRINT"M 
al i 1-3" 

710 IFSTICK<0)ORSTICK<1)=3THENF=F+1 

ELSEI FSTICK<0)ORSTICK<1)=7THENF=F-1 

720 FORI=1T0400:NEXT 

730 IFF<1THENF=3ELSEIFF>3THENF=1 

740 LOCATE 27.10:PRINTF 

750 IFSTRIG< 0)ORSTRIG<1)THENQ1=F:GO 

T0760ELSE710 

760 L0CATÉ6.10:PRINTCHR^<27)+"p Sva 
riohetsorad ":L0CATE27.10:PRINTQ1:L 
OCÅTEIOT15:PRINT" Malj 1-3 " 

770 PRINTCHR*<27)+"q" 

780 S0UND8.10:FORJ=40T07STEP-1:FORH 
=1T0215STEPJ:SOUNDO.H:SOUNDO.H+10:S 
0UND0.H+ 2 0:SOUND 0.H+ 3 0:SOUND 0,H+ 4 0: 
NEXT:NEXT:SOUND8.0:FORH=1T0511:COLO 
R.HÅND 15:NEXTH 
790 P0=0:RETURN 
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Som det gerne plejer at gå her 
under jul, er jeg begyndt at blive 
overdænget af en salig rus af god¬ 
modighed. Derfor vil jeg give dig 
et tilbud: Ved køb af mindst 8 
programmer vil du få de 2 gratis, 
og derudover vil spillet "Knight 
Tyme” følge kvit og frit med enhver 
bestilling på mindst 4 programmer 
(hvis du da ikke direkte frabeder 
dig det - i så fald skal jeg nok 
finde på noget andet godt (hvad med 
et rart lille cassette-kabel?)). 
Bestiller du således 8 programmer 
på bånd skal du betale: 

25 + 8*10 - 2*10 = 85,- dkr. 
og i den pris får du så også 
”Knight Tyme" med. 

Ellers kan jeg fortælle at en 
gruppe ihærdige mennesker på reak¬ 
tionen (Kurt, Søren & Lars) er ved 
at lægge sidste hånd på en super 
MSX-DOS-diskette, der fra næste år 
vil være at erhveve her fra MSX-BIB 
formedelst 100,- dkr. Disketten 
indeholder stærkt forbedrede udga¬ 
ver af DIR, TYPE og EDITFKEY kom¬ 
mandoerne, et program til udprint¬ 
ning af filer, et LOOK-program til 
at kigge i filer, et VOLUME-program 
til at give disketter navn samt et 
par andre småprogrammer. Men mere 
om denne lækkerbidsken i næste 
nummer. 

Ønsker du at komme i besiddelse 
af nogle af dem i nedenstående 
liste nævnte programmer fra MSX-BIB 
er fremgangsmåden som altid: 

Du sætter dig ned og finder ud 
af hvilke programmer du vil købe. 
Derefter forlader du jule-pynte- 
klippe-klisteriet for en stund, går 
hen på posthuset, fatter et giro- 
indbetalingskort, og skriver pro¬ 
gramnavnene på bagsiden. 

Priser: 

15 min. bånd - 25 dkr. stk. 

5.25” disk - 25 dkr. stk. 

3.5” disk - 35 dkr. stk. 
programmer - 10 dkr. stk. 

Forsendelses omkostninger er in¬ 
kluderet i disse priser. 



Et bånd kan rumme 8 programmer. 
En disk kan rumme hele biblioteket. 


Programmerne bestilles hos: 

Kim Andersen 
Fundervej 32 
2610 Rødovre 
gironr. 7 50 87 00 


Jeres egne programmer sendes til 
samme adresse. (der venter stadig 
en belønning i form af bånd eller 
disketter efter eget ønske). 

Kim 


Indhold i MSX-BIB: 

- "Thorkild”, styr din loppe op af 
kloaken. Vandvittig morsomt. 

- "X-Basic”, oversætter basicpro- 
gram til maskinkode resulterende i 
en meget stor hastighedsforøgelse. 

- "Milas”, teksteventyr i Milas’s 
slot. Rimelig underholdende. 

- ”Nim”, det gamle kinesiske pinde¬ 
spil - hvem tager den sidste pind? 

- "Tank”, 2-mandsspil hvor man skal 
kanonføde hinanden. 

- "Wall”, 2-mandsspil lignende 
bordtennis. 

- VSeafight”, Skyd jetjagere, der 
angriber ens skib. 

- "Fødag”, sig tillykke til din mor 
med et lille grafik/lyd show. 

- "Kalender", Udregner kalender for 
ønsket år eller ugedag for dato. 

- "Colortrim", definer nye farver 
mellem 512 mulige. Kun til SVI-738. 

- "Bronski”, spiller Bronski Beat’s 
'Smalltown boy’. 

- "Musik", en lang række kendte 
melodier, bl.a. 'Cavatina'. 

- ”R2D2”, tegner det lille kære 
metal væsen. 

- "Lamborghini”, har du ikke råd 
til at købe en, så se en. Flot! 

- "Lineshow”, meget flot demonstra¬ 
tionsprogram med bevægende linier. 

- "Kegle", vælt den enlige bevægen¬ 
de kegle med din bowlingkugle. 
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- "Figflyt", kan flytte og dreje 
figurer du tegner ved at angive 
hjørnekoordinater. Regner nye ud. 

- "Sprite”, tegn din sprite og du 
får hvad der skal stå i data¬ 
linierne. Meget enkelt. 

- "Regression", smart program der 
ud fra indtastede data (koordina¬ 
ter) tegner en tilpasset kurve. 

- "Tegne", lille tegneprogram med 
de gængse kommandoer. Flot grafik. 

- "Snake Valley”, æd modstanderens 
hale inden han æder din. For 1 
eller 2 spillere. Rigtig sjovt! 

- "Biorytmer”, afgør hvordan din 
fysiske, psykiske & intellektuelle 
ti Istand er d.d. 

- "Chopper”, hel i koptorspi1 med 12 
baner, incl. designerprogram til at 
lave mange flere. 

- "Ormrun”, Char1ottenlund Travbane 
med orme, flot grafik & lyd. 

- "Demo”, oplev hvilke grafiske 
muligheder din MSX indeholder. 

- "Amorti”, regner rente, afdrag og 
restgæld på din afbetaling ud. 

- "Tips", indtast dine tips (også 
sys.) og prog. viser antal rigtige. 

- "The Maze”, lav en labyrint og få 
en anden til at slippe igennem. 

- "Life”, tegn et mønster af cel¬ 
ler, og du ser dem udvikle sig. 

- "Sound Maker”, lav den rigtige 
lyd til dit sdpil på denne flotte 
mikserpult. 

- "Halv Tolv”, lige som i Monte 
Carlo, på med pokerfjæset. 

- "Danmark", lær de danske byers 
beliggenhed, flot grafik. 

- "Oil”, bliv olie-sheik på no 
time, sjovt to-mands-spi1. 

- "Puzzle”, sjovt puslespil på 16 
brikker med bevæglige billeder. 

- "Skyd Nu", skeetskydning som du 
kender det fra 01, hurtig grafik. 

- "Pengo", det iskolde gys, klas¬ 
sikeren fra spillehallerne. 

- "Søjle”, behandler tal og stiller 
dem op som kurver el. søjler. 

- "Eliza”, Psykologen hjælper dig 
med kærestesorgerne, på engelsk. 

- "Graf”, tegner en graf for den 
indtastede funktion, brugervenligt. 

- "Kartotek”, hold styr på dine 
cassette bånd og programmer. 


- "Moon Mission”, superlækkert gra¬ 
fik lander program, 5 baner. 

- "Frogrun”, få frøen sikkert over 
vejen og floden. 

- "Dump”, screendump prog. til din 
Epsonkompatible printer. 4 forstør¬ 
relser. 4 gråtoner. 

- "Dbase", hurtig dbase hvor du kan 
sætte alt i system, indbygget ud¬ 
printningsfacilitet . 

- "Screen Store", kan gemme to 
skærmbilleder og lynhurtig få dem 
frem igen. Kun til 64 k maskiner. 

- "Ram Disc”, arbejd med to pro¬ 
grammer på samme tid. Kun til 64 k 
maskiner. 





Gunnar Larsson fra Sverige har 
sendt os et PC-program der skal 
køres under GW-Basic. 

Før programmet kan benyttes skal du 
selv lige ændre i linierne 120-170, 
280-360, 390-430 & 530-590. Skriv 
her navnene på de programmer som 
menuen skal kunne starte. 
Programmerne skal alle være Basic 
programmer, men som man vil kunne 
se når man RUN'ner programmet kan 
man også gå direkte ud i DOS eller 
afbryde programmet. 

Vi takker Gunnar for hans bidrag 
til PC spalterne og kan jo så kun 
opfordre alle andre til også at 
vise hvad de har lavet på deres 
PC'er. 
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10 REM PROGRAMNAMN 
20 REM KONSTRUKToR 
N 

30 REM DATUM 
40 REM DATOR 
50 REM BASIC 
60 REM - 


: MENU.BAS 
: GUNNAR LARSSO 

: 1987-12-17 
: BONDWELL 38PC 
: GWBASIC 


70 CLS 
80 Yl$=" 


90 Y2$=" 
NY 1 
100 Y3$= 


fr 


ME 


110 Y4$=" r = r 


12B zi! 


1 | Program 1 


13 » V 5 S 

1S0 z! 

x 

Program 6 

II" 

Ih 

, 1 . _11 n 

!$=" 

2 j Program 2 

II 

il 1 

7 

Program 7 

ir 

150 Z. 

!>$=" 

3 | Program 3 


li 1 

1 8 

Program 8 

ii" 

16& Z4g 

5=1 

4 | Program 4 


Il 1 

i 9 1 

Program 9 

ii" 

170 Zl 

>$-" 

5 I Program 5 


Il 1! 

1 0 

MENY 2 

r 

180 Yt 

!$="! 




190 LOCATE 3,10 : PRINT Yl$ : PRIN 
T TAB(10)Y2$ : PRINT TAB(10)Y3$ : 

PRINT 

200 PRINT TAB(10)Y4$ : PRINT TAB(1 
0)Z1$ : PRINT TAB(10)Y5$ 

210 PRINT TAB(10)Z2$ : PRINT TAB(1 
0)Y5$ : PRINT TAB(10)Z3$ 

220 PRINT TAB(10)Y5$ : PRINT TAB(1 
0)Z4$ : PRINT TAB(10)Y5$ 

230 PRINT TAB(10)Z5$ : PRINT TAB(1 
0) Y6$ 

240 K$=INPUT$(1) 

250 IF K$="0" GOTO 370 
260 B%=ASC(K$)-48 : IF B %<1 OR B%> 
9 GOTO 240 

270 ON B% GOTO 280,290,300,310,320 
,330,340,350,360 
280 RUN"PROGRAM 1" 

290 RUN"PROGRAM 2" 

300 RUN"PROGRAM 3" 

310 RUN"PROGRAM 4" 

320 RUN"PROGRAM 5" 

330 RUN"PROGRAM 6" 

340 RUN"PROGRAM 7" 


350 RUN"PROGRAM 8" 
360 RUN"PROGRAM 9" 
370 CLS 
380 Y2$=" 

ENY 2 


390 Zl$="|| 

1 j Program 

10 

H II 

1 6 1 

| Program 15 


400 Z2i 

Hi 

2 | Program 

11 

11 U 

7 j 

Program 16 


410 Zc 

b="| 

1 3 I Program 

12 

11 II 

l 8 

MS-DOS 


420 z" 

i$="i 

4 I Program 

13 

Il U 

1 9 

AVBRYTA 


430 Zl 

II II 

>$-"l 

1 0 

5 I Program 
MENY 1 

14 

440 LOt 

,ATE 

3,10 : PRINT 

Yl$ 


PRIN 

T TAB(IO)Y2$ : PRINT TAB(10)Y3$ : 

PRINT 

450 PRINT TAB(10)Y4$ : PRINT TAB(1 
0)Z1$ : PRINT TAB(10)Y5$ 

460 PRINT TAB(10)Z2$ : PRINT TAB(1 
0)Y5$ : PRINT TAB(10)Z3$ 

470 PRINT TAB(10)Y5$ : PRINT TAB(1 
0)Z4$ : PRINT TAB(10)Y5$ 

480 PRINT TAB(10)Z5$ : PRINT TAB(1 
0) Y6$ 

490 K$*INPUT$(1) 

500 IF K$”"0" GOTO 70 
510 B%=ASC(K$)-48 : IF B%< 1 OR B%> 
9 GOTO 240 

520 ON B% GOTO 530,540,550,560,570 
,580,590,600,640 
530 RUN"PROGRAM 10" 

540 RUN"PROGRAM 11" 

550 RUN"PROGRAM 12" 

560 RUN"PROGRAM 13" 

570 RUN"PROGRAM 14" 

580 RUN"PROGRAM 15 
590 RUN"PROGRAM 16" 

600 CLS : LOCATE 10,25 : PRINT"Vil 


1 Du komma till DOS tryck *" 

610 K$=INPUT$(1) 

620 IF NOT K$="*" GOTO 70 
630 SYSTEM 

640 CLS : LOCATE 10,25 : PRINT"Vil 


1 Du sluta tryck *" 

650 K$=INPUT$(1) 

660 IF NOT K$="*" GOTO 70 
670 END 
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2 1 *********************** 

2 ' * * 

3 ' * Hermed en tegning * 

4 ' * DEN LYSERØDE PANTER * 

5 ' * spiller bold * 

6 ' * Fra vort medlem * 

7 ' * Tony Marcher Esbjerg* 

8 ' * * 

g ' * * 

20 ' *********************** 

20 ' 

30 ' 

40 COLOR 9,1,1:SCREEN2, 2 
50 ' 

60 DRAW' bml50, 5141h313gl5hl 6hll4dgd 
11fdf3rd3f3rfr2e6ur3er6d5gd2gdgdg3d 
gdg2dgd2gdgd2gdgd3gd3gd3gd2grd511 " 
70 1 

80 DRA W 1 rfd3fdf2df3rfd2g2dgdgdgdg2d 
gdgdgdg2dgdg2dg2dg3dg3dg2dgdg2dg3dg 
dgdgdg2dgl gl2hl2hl2hll3gl gi g4d3f2r4 
frl4er7er4e2ue2u2e2u2e2ueueueueue2u 
eue2ue2ue2ue3ue3ueue3ue2ue4ue2d64g2 

90 ' 

100 DRAW • rf2rf2r2fr5frlIe2u2h3ulhlh 
lh!2hlllu61fdfrereu8ere2r2u2eueueue 
ue2ueueueu2ehl1uh2uh3uh2uh5u4eu4eu4 
e4r8er2ereueuh3r4e2u2h314g4" 

110 ' 

120 DRAW"bml35, 4f4r2e3" 

130 DRAW"bmll3,18r5e5u3h6lhlh3" 

140 DRAW'bml'10,11 e3ueu2rerl 9e" 

150 DRAW'bml27,10r8d2u2h3" 

160 DRAW'bm'115,12f9df31" 

170 DRAW'bml21,13f6df21 ' 1 
180 DRAW'bmllO,1116g" 

190 DRAW'bml09, 714g" 

200 DRAW'bml58, 313gfr3u" 

210 DRAW'bm61,148r2ererer" 

220 DRAW' bm64,153u2e3rer" 

230 DRAW'bml58,165h414hl" 

240 DRAW'bml60,163h414h" 

250 DRAW'bml39, 91gh3u4eu3e5u3h2u2hu 
hu2huhu7eu4eu3hg" 

260 DRAW'bml41,95u9eu" 

270 DRAW'bml38, 95u8eu" 

280 DRAW'bml39, 78r4fr3ueueu2eu2eueu 
4h4uhl0" 


290 DRAW'bml36, 81h3u2huhu2hu21eu4eu 
4e" 

300 DRAW'bml 19, 64g31g21gl2gl2glgl2g 
lllhl3g4dfr3g2d2f2dfr5ferer2e2u4rl4 
u412gl4urererererere'' 

310 DRAW'bm85,80e3r3gd3fd" 

320 DRAW'bm91,77er4g2d4" 

330 DRAW' bm94,76r2f2d4u2r4" 

340 DRAW'bm97, 77rl0" 

350 DRAW'bm79, 77rll0h213hl20gl2glgl 
g5d2f5r2frl8ur3er2er2ererere2re2r5f 

360 DRAW'bm43, 77rl8fr3f3dg31 gi 12gl 1 
7hl3ulu4e3rer" 

370 DRAW'bm40, 79r27" 

380 DRAW'bm38, 81r29" 

390 DRAW' bm37, 85r27" 

400 DRAW'bm40, 78d8" 

410 DRAW'bm43, 77dl0" 

420 DRAW'bm46, 77dl0" 

430 DRAW'bm49, 77dl0" 

440 DRAW'bm52, 77dl0" 

450 DRAW'bm55, 77dl0" 

460 DRAW'bm58, 77dl0" 

470 DRAW'bm61, 77dl0" 

480 DRAW' bm37, 83r29" 

490 DRAW'bm64, 78d7" 

500 DRAW'bml37, Of6" 

510 DRAW'bm40, 93frl2er" 

520 DRAW'bm43, 98fr9e" 

530 DRAW'bm46,103r5" 

540 DRAW'bm86, 91fr9e" 

550 DRAW'bm89, 96r6" 

560 DRAW'bml49,83r3f2rf3dfdfd7gd4gd 
2gd2gd2gd2gdgdgd2g2dgdgd5frfr4e4ueu 
1e2r2f2d7gdgd2g3dg2dg416hlh3ul7eu2e 
ueueu2eueueueu2eu5eu3eueu5h714" 

570 A$~"":FORM-1T032:READA:A$-A$+CH 

R$(A) :NEXTM 

580 SPRITES(O)~A$ 

590 FORMM-70T05STEP-1 

600 PUTSPRITEO, (45, MM) ,15,0 

610 NEXTMM 

620 FORMM-5T070 

630 PUTSPRITEO, (45, MM) ,15,0 

640 NEXTMM 

650 D$-INKEY$:IFD$<>""THENCOLOR 15, 
4,4:END 
660 GOT0590 

670 DATAO, O, O, 6, 31,63, 63,127,127, 63 
, 63, 31,6, O, O, O, O, O, O, 0,128,192,192, 
224, 224,192,192,128, O, O, O, O 


Tak til Tony fra Johnny B 
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PC-BIB indholdsliste pr 20/11-1988. 
Disk #1 

Striker, et fedt helikopterspil i 
stil med scramble, du sendes på 4 
opgaver på fjendens territorium. 

Disk #2 

FYFY disk indeholdende uartige his¬ 
torier + NIPPLES og selvfølgelig en 
finger der ligger resident i din PC 
og kommer frem i tide og utide. 

Disk #3 

Bombsquad, finder BOMBER i public 
domaine software. 

ART, tegneprogram til EGA 
Orbit, Satellit. 

Disk #4 

TTT, Yahtzee, WILLY the worm, 
Wildcat : olieboring i USA 

Disk #5 

Disktest, Autotest, Wizard, 

Fat load, Sub, Darth, Bandoc 
Faker : et spil for hackerne der 
ikke har råd til telefonregningen. 

Disk #6 

PC-LOCK : kodeord på din harddisk 
Disk #7 

Slideshow : 21 digitaliserede bil¬ 

leder i 2 farver. 

Disk #8 

TIMESAVER : Timemanager, glem ikke 
dine aftaler ! 

Disk #9 

Buyers Guide datafil, kræver at du 
har PC File III (ej Public Domaine) 

Disk #10 

LXT, Får din matrix-printer til at 
skrive med rigtig flotte tegnsæt. 

Disk #11 

LABEL, program der indeholder både 
database &. tekstbehandling men hvis 
hovedformål er at udskrive LABELS. 

Disk #12 

En disk fyldt med musik demoer. 


Disk #13 

Diskuti1ities, fuld kontrol over 
dine disketter. 

Disk #14 

DASAN : Modemuti lity med 400 tlf nr 
på bulletin boards. Kræver at du 
har programmet PROCOMM (disk#45) 

Disk #15 

Dirty Disk. Endnu en FYFY disk, tag 
på Sex adventure. 

Disk #16 

Configurer dit eget BBS med denne 
diskette, masser af hjælp hele 
vejen igennem. 

Disk #17 

PYROTO: Modemprogram 

Disk #18 
CHEAP ASSEMBLER: 

8088 assembler med god beskrivelse. 
Disk #19/#20 

Taleprogrammerne SAY & PC Parrot. 

SI : System info 

Disk #21 
Gamedisk 

3-Demon, Bricks, Fortune, Kong, 
Pango, PC-golf, Pitfall, Pyramid. 

Disk #22 

QMODEM : modemprogram 
Disk #23 

TYPEWRITER: lær at skrive på 

maskine. 

Disk #24 

Turbopascal rutiner. 3-D plot, 
worldmap, 3-d pyramid m.m. 

Disk #25 

FIDONET: Lav dit eget bulletin¬ 

board, her har du rutinerne 

Disk #26 

Masser af nyttige smårutiner 
Disk #27 

Dosleksikon, udførlig forklaring af 
alle dos-kommandoer. 2 disks 
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Disk #28 

Family History System: Lav dit eget 
stamtræ. 

Disk #29 

Turbopascalrutiner. 

Disk #30 

Flere Turbopascalrutiner (ialt 58 
filer) 

Disk #31 

ESIE: Kunstig intelligens, expert 

system. 

Disk #32 

PROLOG : Alle tider programme¬ 

ringssprog med virkelig god doku¬ 
mentation på 76 K. 

Disk #33 

Turbopascal rutiner, endnu 57 filer 
Disk #34 

Arrg, endnu 15 Turbopascal rutiner 
Scroller, Fastwriter, Graphics m.m. 

Disk #35 

RTTY : RadioTeleTYpe for radioama¬ 
tøren med kortbølgestation og RTTY- 
modem. 

Disk #36 

Satte 1itpej1ing af Radioamatør sat¬ 
te 1itter. 

Disk #37 

AIRNAV: Realistisk fly navigation, 
ps. ikke flysimulator ! 

STARFIND: for den aktive astronom. 
Disk #38 

Forth: programmeringssprog, 87K 

dokumentation. 

Disk #39 

Pervert, Sopwith, Strip, Pinball, 
Xwing, Timemanager. 

Disk #40 

MONOPOLY, Oktober måneds topsælger, 
PC-Matadortype spil. 

Disk #41 

Sailing : Sejlspil hvor du kommer 
ud for en masse spænding. 


Disk #42 

WINE : Med dette program i 

baghånden kan du servere den rette 
mad til den rette vin og omvendt. 

Du kan læse om de forskellige 
vindistrikter og vine. Wooouw !!! 

Disk #43 

DANCAD 3D : CAD program der kræver 
640 Kram. 

Disk #44 

KAPER : et Dansk spil i topklasse, 
du er her en sørøver med udsigt til 
at blive adlet og få komtessen i 
enden. 

Disk #45 

PROCOMM : modemprogram 
Disk #46 

KERMIT : Terminalprogram. 

Disk #47 

PC—MUSICIAN 

En masse lækker musik. 


Da Henrik Larsen har solgt sin PC 
og købt sig en SVI-738 kan han ikke 
mere tage sig af PC-BIB og derfor 
har jeg overtaget kassen med disk¬ 
etter. 

Der er kommet 3 nye disketter hjem 
og en er forsvundet idet jeg har 
samlet #19 & #20 til en. Læs 
nedenfor hvordan du kan være med 
til at øge antallet af PB software. 


Prisen er 35 Kr/stk alt inklusiv. 

Et evt. overskud går til fremtidige 
indkøb af Public Domaine software. 

Hvis du har noget Public Domaine 
software som du tror andre kan have 
glæde af så har du muligheden for 
at erhverve dig en GRATIS diskette 
fra biblioteket pr fyldt du sender 
os + selvfølgelig din egen tilbage. 

•JaSf 


PC-BIB 

Henrik Gilvad 
So1rød Byve j 4 
DK-2680 Solrød St; 
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_ ,, ~ ^ ^ 10 REM 

f fir ^ ^ ,JjjP Æ? 20 REM X ' press 16 demo 

30 REM By H.G. 

40 REM MVDP-chip 


Jeg ville egentligt have vist jer 
hvordan man laver SPRITES på Xpress 
16 men desværre gik det ikke helt 
let som det skulle så i må denne 
gang nøjes med et eksempel på 
hvordan man kan tegne linier bare 
ved at skrive til nogen porte. 

Okay, man kan da godt bruge LINE 
kommandoen istedet for men jeg 
syntes lige jeg ville prøve at 
bruge nogen OUT kommandoer. 

Hvis du kigger omme bag i en af de 
mange manualer du fik med til din 
Xpress 16, (Den lille blå) kan du 
se at der står en liste over 
portnumrene der bruges af maskinen. 
Et stykke nede står der MVDP. 

3C0 MVDP PORT #0 
3C1 MVDP PORT #1 
3C2 MVDP PORT #2 
3C3 MVDP.PORT #3 

Det er port #1 som jeg bruger i 
programmet. MVDP'en har nogen 
registre som man kan skrive til, og 
det gør man på følgende måde: 

OUT(&h3Cl),data:OUT(&h3Cl),128+reg 

Lad endelig vær med at skrive til 
nogen registre hvis du ikke er HELT 
sikker på hvad du laver !!! 


50 REM LINE command 
60 REM 
70 SCREEN 5 

80 FOR X=0 TO 255 STEP 8 
90 VD=36:A=20:GOSUB 230 'X-coor. 

100 VD=37:A=0:GOSUB 230 

110 VD=38:A=X/2:GOSUB 230 ’Y-coor. 

120 VD=39:A=0:GOSUB 230 

130 VD=40:A=X:GOSUB 230 1 Short step 

140 VD=41:A=0:GOSUB 230 

150 VD=42:A=40:GOSUB 230'Long step 

160 VD=43:A=0:GOSUB 230 

170 VD=44:A=12:GOSUB 230 'Color 

180 VD=45:A=0:GOSUB 230 'ARG 

190 VD=46:A=112:GOSUB 230'Line comm 

and 

200 NEXT X 
210 BEEP 
220 GOTO 220 

230 OUT &H3C1,A:OUT &H3C1,VD+128:RE 
TURN 

240 ' ARG-ument 
250 ' 

260 'bit 76543 210 

270 'ARG: 0 - mxd - diy dix - Maj 
280 ' 

290 'MXD: Destination Memory select 
300 ’ 0=128 KVram, l=Expansion 

310 ’DIX: 0=right, l=left 
320 'DIY: 0=Down, l=Up 
330 'MAJ: 0: X =Long Y=Short side 
340 ' 1: Y =Long X=Short side 


Når du afprøver programmet kan du 
se at de første linier der tegnes 
knækker på en helt dum måde. Dette 
skyldes at Short-side er længere 
end Long-side, for så går der kuk i 
MVDP'ens regneri. 

Programmet er et ret useriøst for¬ 
søg på at varme op til at lave 
nogen af de SPRITEs som manualen 
faktisk har lovet køberen at han 
kan lave. Jeg gætter på at alle jer 
med XPRESS 16 kun bruger MVDP'en 
som printerbuffer eller RAM-disk, 
det er dette som jeg gerne vil 
prøve på at ændre lidt. 
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WSfe Am, —■ mm, ^ Jfe toju nærmere bestemt i musik-bufferen. 

4SB§^ ^ # ^ GMtmé CP Dette resultere i at rutinen både 

virker i basic og i DOS. I og med 


Fra Mogens Petersen i Sabro har 
vi modtaget følgende brev: 

Jeg er forholdsvis nybegynder på 
printer (plotter Prn 41) - har i 
nogle programmer der umiddelbart 
kan køre på en sådan? 

Kan i oplyse mig om hvordan ”dip 
switches” virker og hvad de kan 
bruges til? 

Når LLIST komandoen anvendes » og 
programmet fylder mere end en A4 
side, fortsætter plotteren med at 
køre. Hvorledes får jeg den til at 
stoppe automatisk eller køre videre 
på en ny side? 

Dette er mange spørgsmål til 
plotteren, håber I kan hjælpe eller 
henvise til læsestof der kan løse 
ovenstående. 


Jo vist kan vi hjælpe. For at 
starte fra en ende af så er der 
ikke nogle programmer i BIB der er 
til plotter, så spørgsmålet må gå 
videre til medlemmerne, der hellere 
end gerne må sende nogle til BIB. 

”DIP switches’’ har den virkning 
at man kan indstille visse funkti¬ 
oner på printeren/plotteren således 
at disse funktioner er i kraft når 
apparatet tændes. For eks. har min 
printer forskellige landes tegnsæt, 
og her kan man med DIP switch'ene 
indstille hvilket tegsæt der skal 
gælde når printeren tændes. Hvilke 
funktioner din plotters DIP switch¬ 
es har må du se i manualen. 

Dit sidste spørgsmål vedrører et 
alment problem både for printer- & 
plotterfolk der benytter enkeltark. 
Der er ikke nogen direkte løsning, 
så jeg måtte igang med at lave en 
lille mc-rutine der kunne klare 
det. Rutinen virker simpelt hen på 
den måde at den tæller antallet af 
linier der udprintes, og hver gang 
den når et bestemt antal, stopper 
den udskrivningen og venter på at 
man trykker en tast. Rutinen har 
jeg lagt oppe i systemvariablerne, 


at rutinen ligger i musik-bufferen 
må man ikke bruge ’’PLAY” samtidigt 
med (man vil få en "SYNTAX ERROR”). 
Men nu til programmet. Man starter 
med at taste basic-programmet ind 
og køre det. Hvis så fremt i fald 
man ingen fejl har lavet vil der 
bliver gemt en fil på bånd/disk 
kaldet ”PRNPAU”. Når man har brug 
for det skriver man BLOAD”PRNPAU”,R 
og rutinen klarer resten selv. Det 
eneste man kan have brug for er at 
nulstille tælleren der tæller an¬ 
tallet af udprintede linier. Dette 
sker automatisk hver gang man skri¬ 
ver LLIST, men kan gøres manuelt 
med A=USR9(0). 

Kim 



10 'Print Pause 
20 RESTORE 120:J=0 
30 F0RI=&HF975T0&HF9D8 
40 READX$:POKEI,VAL("&H”+X$) 

50 J=J+VAL(”&H”+X$):NEXTI 

60 IFJ< >1 1937THENPRINT"DATAFEJL!”:S 

TOP 

70 A=60 'Antal linier per side, 
kan ændres efter behov 
80 B=80 'Antal tegn per linje, 
kan ændres efter behov 
90 P0KE&HF9BA,A-1:P0KE&HF9C9,B-1 
100 PRINT”Gør disk/bånd klar til sa 
ve og tryken tast!":A$=INPUT$(1) 

110 BSAVE "PRNPAU ’’, &HF975,8.HF9D8 
120 ' 

130 DATA F3,21,C5,FF,36,F1,21,89 
140 DATA FF,11,99,F9,36,03,23,73 
150 DATA 23,72,21,AC,F3,73,23,72 
160 DATA 21,B6,FF,11,AB,F9,36,C3 
170 DATA 23,73,23,72,F5,3A,16,F4 
180 DATA FE,00,28,08,3E,00,32,D7 
190 DATA F9,32,D8,F9,F1,C9,F3,F5 
200 DATA E5,FE,0A,20,0E,21,D8,F9 
210 DATA 36,00,2B,7E,FE,3B,28,12 
220 DATA 34,18,14,FE,0E,38,10,21 
230 DATA D8,F9,7E,FE,4F,28,E9,34 
240 DATA 18,05,36,00,CD,9F,00,El 
250 DATA F1,09,00,00 
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i»<» &Åeæ,f/*sm*s 

1 'Denne lille rutine 

2 'giver dig kursiv skrift 

3 ' på skrærmen kan 

4 'kombineres med 

5 'fed skriften 

6 'af Johnny B 

7 1 2 3 4 5 6 7 

9 'Maskinkoden 

10 DATA 2A,24,F9,11,7,1,19,11,FO,7, 
6,4,05,13,23,00,21 

20 DATA 4A,0,FD,2A,CO,FC,CD,59,1,CB 
,3F,DD,21,4D,0,FD 

30 DATA 2A,CO,FC,CD,59,1,Cl,10,E2,2 
3,23,23,23,1B,1B,1B,1B,7A,B3,20,D4, 
C9 
40 ' 

1000 'LÆGGER MASKINKODEN På PLADS 
1010 FORA«&HDOOOTO&HD036:READX$ 

1020 POKEA,VAL("&H"+X$):NEXT 
1030 1 

1040 'GEMMER MASKINKODEN SOM BINÆR 
FIL 

1050 BSAVE"KURSIV.BIN",&HD000,&HD03 
6 

1060 PRINT"DEFUSR-&HD0Q0:A-USR(0) 


1 'Denne lille rutine 

2 'giver dig fed skrift 

3 ' på skraermen kan 

4 'kombineres med 

5 'kursiv skriften 

6 'af Johnny B 

7 ' 

9 'Maskinkoden 

10 DATA 2A,24,F9,1,F8,7,C5,DD,21,4A 
,0,FD,2A,CO,FC,CD,59 

20 DATA 1,57,CB,2F,B2,DD,21,4D,0,FD 
,2A,CO,FC,CD,59,1 
30 DATA Cl,23,B,78,Bl,20,DE,C9 
40 ' 

1000 'LÆGGER MASKINKODEN På PLADS 
1010 FORA-&HD600TO&HD628:READX$ 

1020 POKEA,VAL("&H"+X$):NEXT 
1030 ' 

1040 'GEMMER MASKINKODEN SOM BINÆR 
FIL 

1050 BSAVE"FAT-BAS.BIN",&HD600,&HD6 
28 

1060 PRINT"DEFUSR-&HD600:A-USR(0) 


begge binære filer skal du 
bloade,r 

hver gang du gentager spøgen 
bl ir skiften endnu tykkere 
eller skævere 
hej Johnny B 



1 'Hermed en fed... skrift rutine 

3 'prg opretter en Fatdos.com fil 

4 'Prg er lavet af Stanislav Deja 

5 'Tyskland. 

6 'Public Domain sålænge copyright 

7 'findes i programmet 

8 'Hej Johnny B 

9 ' 

10 DATA 2A,24,F9,11,8,1,19,1,D8,4,C 
5,DD,21,4A,0,FD 

20 DATA 2A,CO,FC,DF,57,CB,2F,B2,DD, 
21,4D,0,FD,2A,CO,FC 
30 DATA DF,C1,23,B,78,B1,20,E2.E,9, 
11,31,1,CD,5,0 

40 DATA C9,44,69,63,6B,65,72,20,5A, 

2D,53,61,74,7A,20,69 

50 DATA 6D,20,4D,53,58,44,4F,53,2E, 

20,28,63,29,20,53,74 

60 DATA 2E,44,65,6A,61,20,26,20,47, 

2E.50,61,62,73,74,24 

70 DATA FF,FF,FF,EF,FF,FF,EF,EF,FF, 

FF, FF, FF, EF, DF, FF, EF 

80 DATA 4F,FF,DF,FF,FF,FF,7F,FF,FF, 

FF,EF,FF,FF,FF,FF,FF 

90 ' 

100 'ÅBNER EN DATA FIL TIL DOS ■= *. 
COM 

110 OPEN"FAT-DOS.COM"FOROUTPUTAS#l 
120 FORI-OTO &H7F 
130 READX$ 

140 X-VAL("&H"+X$) 

150 PRINT#1,CHR$(X) ; 

160 NEXTI 

170 PRINT"færdig:Fat-dos.com oprett 
et 

180 CLOSE 
190 ' 

200 'OBS copyright findes 
210 'i maskinkoden 
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Liste a-f programtitler 
i SVIBIB : 


©<2? 0 © Q © 

SVI BIB er KUN til SVI 318-328 

SVIBIBS’s POSTGIRONR. er: 

4077385 


Nyttige programmer : 

Database , Editor , Hushold ,Matte, 
Mc scroll , Rarndis , Rentereg , 
Rulleteks , Screen Rig , Sdump.mc, 
Sorter , Sprite ed , Sprog , 

Tegner , Talkback , Taperut , Tips 
Kalender , Supertegn , Periode 


Bestilling a-f programmer gøres på 
postgiro hvorpå der skrives hvil'ke 
programmer du ønsker,samt om du vil 
have disk eller bånd. 

Husk også at skrive din egen adr,‘ 
t y d e1 i gt h e1 s t BLQKBQfiSIåyEE^ 


PRISER 

Bånd - 25kr 

5.25" Disk - 25 kr 

Pris pr. program - iOkr 

P ris p r. pr og r am p akke. - 15 k r 
Ud! i string af program - 54 r 


Programpakkerne er lavet på den 
måde at man loader alle 
programmerne ind på en gang , og 
kan så vælge ved hjælp a-f en meny 
hvilket pr ogram m an øn s ke r at køre 
dere-fter kan man stoppe og vende 
tilbage til menyen ovs.ovs. 

HUSK når I bestiller programpakker 
at skrive hvi 1ken kataregi I 
ensker det pågældende nr. fra. 


Spil : 

Aladdin , Bovla, Bjerg, Darts, 
Death, Diktator, Frans, Hel 1, 

Kai aha. Skyd nu. Oil 

Spil pakker : 

Nr. 1 : hale , Pyramide , Labyrant 
Nr.' 2 : Pusle , Attack , Roulette 
Nr. 3 : Flight , Sur , War' 

Nr. 4 : Mons , Hopper , Star 

Mr. 5 : Moon , Myre , Slange 

Nr. 6 : Robot , Pengo , Snowbali 
Nr. Danmark , Frogger 

Nr. S : Skyttepro , Lemona 

Musik pakker : 

Nr. 1 : Rock musik 9 numre 

Nr. 2 : Rock musik 9 numre 

Nr. 3 : Nusik 9 numre 

Nr. 4 : Lyd Kim , Sound Kim , Orgel 


Andet pakker : 


Programmerne besti 11 es hos; 


Per Under lien 
Rytterhusene 44 
2620 Albertslund 
GIRONR. 4077385 

Programmer der ønskes optaget i 
SVIBIB sker på samme adr. 

Det er jo sådan at vi NU GIVER 
2 bånd eller 
5 5.25" disk 

For de programmer der optages- 
SVI BIB. 

Hi 1 sen Per 


Nr. i : Rio , Lys , Ghost , Børge 
Symtri , Graf ik 


Kun til disk : 



Budgetpro. , Dbase 1 no.1 , Grafen 
Tegnepro. , Te 1efanpro. 
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1 'Hej fans 

2 'hermed et lille musikstykke 

3 'det er faktisk Johnny B live 

4 'det er optaget fra Midi keyboard 

5 'til midirecorder Yamaha derefter 

6 'converteret til Composer med 

7 'noder og derefter til basic 

8 'play med et Japansk program 

9 'det spiller m&ske ikke helt 

10 'fint men dog OK når man tænker 

11 'p& alle de konverteringer 

12 ' 

13 'Altså nu til: 

14 'Se den lille kattekilling 

15 ' 

16 'Hej Johnny B 

17 ' 

1000 PLAY "R2.E16.R16.E16.","R2.E16 
.R16.E16.","R2.E16.R16.E16." 

1010 PLAY "R16.L32ER16.E8.L8GL32ER1 
6.ER16.L8EG","R16.L32ER16.E8.L8GL32 
ER16.ER16.L8EG","RI6.L32ER16.E8.L8G 
L32ER16.ER16,L8EG" 

1020 PLAY "L32ER16.L8CEL2DR8","L32E 
R16.L8CEL2DR8","L32ER16.L8CEL2DR8" 
1030 PLAY "L32DR8DR16.DR8L8DFL32DR8 
DR8","L32DR8DR16.DR8L8DFL32DR8DR8", 
"L32DR8DR16.DR8L8DFL32DR8DR8" 

1040 PLAY "L8DCDEDL2C","L8DCDEDL2C" 

."L8DCDEDL2C" 

1050 PLAY "R8.L32ER16.ER16.ER16.L8E 
G","R8.L32ER16.ER16.ER16.L8EG","R8. 
L32ER16.ER16.ER16.L8EG" 

1060 PLAY "L32ER8ER16.L8EGECEL2D"," 
L32ER8ER16.L8EGECEL2D","L32ER8ER16. 
L8EGECEL2D" 

1070 PLAY "R8L32DR16.DR16.DR16.L8D" 

,"R8L32DR16.DR16.DR16.L8D","R8L32DR 
16.DR16.DR16.L8D" 

1080 PLAY "FL32DR16.DR16.DR16.L8CDE 
D","FL32DR16.DR16.DR16.L8CDED","FL3 
2DR16.DR16.DR16.L8CDED" 

1090 PLAY "L2CR8.L32CR8.03GR16.","L 
2CR8.L32CR8.03GR16.","L2CR8.L32CR8. 
03GR16." 

1100 PLAY "GL4G#L32GR8.GR16.L16AL32 
BR804CR32","GL4G#L32GR8.GR16.L16AL3 
2BR804CR32","GL4G#L32GR8.GR16.LI6AL 
32BR804CR32" 

1110 PLAY "" 


10 'HERMED ET MUSIKSTYKKE IGEN 
20 'DET ER LOUISRAG INDTASTET 
30 'AF RUNI DAM I COMPOSER 
40 'OG CONVERTERET AF MIG OG 
50 'MIT JAPANSKE PROGRAM TIL 
60 'BASIC PLAY 

70 'OBS HVIS NOGEN HAR NOGLE 
80 'GODE SOUND KOMMANDOER 
90 'INSTRUMENTLIGNENDE SA VIL 
100 'JEG GERNE HØRE DEROM 
110 ' 

120 GOD FORNØJELSE 
130 JOHNNY B MUSIK 
140 ' 

1000 PLAY "S13M10000T80V11L1605GL80 
6CL1605AGEL8D","S13M10000V11T80L160 
3GL804CL1603AGEL8D","T80R2" 

1010 PLAY "L16CL8EL16DC04BL8A","L16 
CL8EL16DC02BL8A","R2" 

1020 PLAY "L16GL8AL16A#B05CDE","L16 
GL8AL16A#B03CDE","R2" 

1030 PLAY "L8FR8V13GV9L16GA","L8FR8 
V13GR8","R4S13M10000V11L803GR8" 

1040 PLAY "BGABBL8BL16B","V9D04G02G 
04G","04DR803GR8" 

1050 PLAY "BDEBBFED","03D04G02G04G" 
,"04DR803GR8" 

1060 PLAY "EL8AL16EL8AL1604GA","03C 
04E02G04E","04CR803GR8" 

10.70 PLAY "05E04GA05EEC04BA" , "03C04 
E03ED#","04CR803ED#" 

1080 PLAY "BL805GL1604BL805GL1604GA 
","D04G02G04G","04DR803GR8" 

1090 PLAY "05F04GA05FF04BAG","03D04 
G02G04G","04DR803GR8" 

1100 PLAY "AL805EL1604GGA05E04A","O 
3C04E02G04E","04CR803GR8" 

1110 PLAY "05E04A05CEL8EL16GA","03C 
04E03ED#","04CR803ED#" 

1120 PLAY "BGABBL8BL16B","D04G02G04 
G","04DR803GR8" 

1130 PLAY "BDEBBFED","03D04G02G04G" 
,"04DR803GR8" 

1140 PLAY "EL8AL16EL8AL1604GA","03C 
04E02G04E","04CR803GR8" 

1150 PLAY "05E04GA05EEC04BA#","03C0 
4E03ED","04CR803ED" 

1160 PLAY "AG#A05C#C#EL8A","C#04E02 
A04G","04C#R803AR8" 









-II- 

TsssssissmsszisssfsmssmssssssxsmmMm^msmsmMsimimsmmmÆmsmmsmissmssssmssssjsssnussssssmsszxBssisT 

• 4P<r* S&ÆM £&£&& , 

f3SSSsswUsi3TSjrssBSsrsiiSi3isssmMmsmmsiSÆmsÆ&wmMmmrmmsssms^s3SSSsmsmswtsmsjsssssisssssizmssssssrsx 


1170 PLAY "L16GFEFFCL8D","03D04F03A 
G#","04DR803AG#" 

1180 PLAY "L16ECDEE04BL805D","GF#AB 
","GF#AB" 

1190 PLAY "L4CL8CL16GA","04CL1603BA 
AGL8E","04CL1603BAAGL8E" 

1200 PLAY "BGABBL8BL16B","D04G02G04 
G","04DR803GR8" 

1210 PLAY "BDEBBFED","03D04G02G04G" 
,"04DR803GR8" 

1220 PLAY "EL8AL16EL8AL1604GA","03C 
04E02G04E","04CR803GR8" 

1230 PLAY "05E04GA05EEC04BA","03C04 
E03ED#","04CR803ED#" 

1240 PLAY "BL805GL1604BL805GL1604GA 
","D04G02G04G","04DR803GR8" 

1250 PLAY "05F04GA05FF04BAG","03D04 
G02G04G","04DR803GR8" 

1260 PLAY "AL805EL1604GGA05E04A","O 
3C04E02G04E","04CR803GR8" 

1270 PLAY "05E04A05CEL8EL16GA","03C 
04E03ED#","04CR803ED#" 

1280 PLAY "BGABBL8BL16B","D04G02G04 
G","04DR803GR8" 

1290 PLAY "BDEBBFED","03D04G02G04G" 
,"04DR803GR8" 

1300 PLAY "EL8AL16EL8AL1604GA","03C 
04E02G04E","04CR803GR8" 

1310 PLAY "05E04GA05EEC04BA#","03C0 
4E03ED","04CR803ED" 

1320 PLAY "AG#A05C#C#EL8A","C#04E02 
A04G","04C#R803AR8" 

1330 PLAY "L16GFEFFCL8D","03D04F03A 
G#","04DR803AG#" 

1340 PLAY "L16ECDEE04BL805D","GF#AB 
","GF#AB" 

1350 PLAY "CL16GGL8GG","04CR8R4","O 
4CR8R4" 

1360 PLAY "L16GGGGGGL8G","03DB02G03 
B","DR803GR8" 

1370 PLAY "L16GGGGGGL8G","D04F02G04 
F" ,"04DR803GR8" 

1380 PLAY "L1606EG05B06CE05F#G06C", 
"L3203CG04GGR8R4","V1104CR8R4" 

1390 PLAY "05EFF#GAGEC","R2","R2" 
1400 PLAY "L804B05G04A#05G","L803D0 
4F03C#04E","V7DR8C#R8" 

1410 PLAY "R16L1604B05DFAGFD","03D0 
4F02G04F","DR803GR8" 

1420 PLAY "R8L3204G05CEGR804G05CEG" 
,"L4C03B","V11L404C03B" 

1430 PLAY "R8L16GEAEL8G","AG","AG" 
1440 PLAY "L16GGGGGGL8G","L8DB02G03 
B","V7L804DR803GR8" 


1450 PLAY "L16GGGGGGL8G","D04F02G04 
F","04DR803GR8" 

1460 PLAY "L1606EG05B06CE05F#G06C", 
"L3203CG04GGR8R4","V1104CR8R4" 

1470 PLAY "05EFF#GAGEC","R2","R2" 
1480 PLAY "R8L806C05BA","R8L803F#F# 
F#","R803F#F#F#" 

1490 PLAY "R16L16GF#GAGEC","G04E03E 
04E","V7GR804ER8" 

1500 PLAY "R1604GF#GG#AA#B","03DB02 
G03B","DR803GR8" 

1510 PLAY "L805CL16AGEC04BA","04CR4 
R8","04CR8R4" 

1520 PLAY "05GGGGGGL8G","03DB02G03B 
","DR803GR8" 

1530 PLAY "L16GGGGGGL8G","D04F02G04 
F","04DR803GR8" 

1540 PLAY "L1606EG05B06CE05F#G06C", 
"L3203CG04GGR8R4","V1104CR8R4" 

1550 PLAY "05EFF#GAGEC","R2","R2" 
1560 PLAY "L804B05G04A#05G","L803D0 
4F03C#04E","V7DR8C#R8" 

1570 PLAY "R16L1604B05DFAGFD","03D0 
4F02G04F","DR803GR8" 

1580 PLAY "R8L3204G05CEGR804G05CEG" 
,"L4C03B","V11L404C03B" 

1590 PLAY "R8L16GEAEL8G","AG","AG" 
1600 PLAY "L16GGGGGGL8G","L8DB02G03 
B","V7L804DR803GR8" 

1610 PLAY "L16GGGGGGL8G","D04F02G04 
F","04DR803GR8" 

1620 PLAY "L1606EG05B06CE05F#G06C", 
"L3203CG04GGR8R4","V1104CR8R4" 

1630 PLAY "05EFF#GAGEC","R2","R2" 
1640 PLAY "R8L806C05BA","R8L803F#F# 
F#","R803F#F#F#" 

1650 PLAY "R16L16GF#GAGEC","G04E03E 
04E","V7GR804ER8" 

1660 PLAY "R1604GF#GG#AA#B","03DB02 
G03B","DR803GR8" 

1670 PLAY "L405CL16C","04C03GCR8"," 
04C03GCR8" 

1680 PLAY 
1690 PLAY "" 
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Mfmæ 

KIM bragte i sidste nummer et 
program der kunne morse hvad man 
skrev samt skrive hvad man morsede 
ved hjælp ah computeren. 

Da Jeg så hans program Fik Jeg et 
mindre hjertestop Fordi Jeg selv 
lige, eFter kun 3 års bearbejdelse, 
havde Færdiggjort et program magen 
til. ARRRRRG 11J 

Som regel når Jeg Får et 
raserianFald sker der det at mine 
hænder Fatter tastaturet og skriver 
KILL. Om dette er min psykologiske 
skygges i de der kommer Frem og 
aFreagerer eller om det er et 
Forsøg på at skaFFe bedre plads på 
mine disketter vides ikke. 

OK, nu da Jeg havde slettet mit 
eget program kunne Jeg Jo passende 
taste Kims ind og se hvad det duede 
til. Til min Forbavse Ise var lyden 
slet ikke hvad mine sarte ører 
kalder morses ignaI er, men bare 
nogen ti I Fæ Idige bI ip blot uden den 
rytme og takt som morse normalt 
har. Denne mindre Fatase Fik Jeg 
hurtigt ændret men ti! min gru 
indeholdt programmet endnu en Fejl. 

da da da dahh 

Denne gang var det dog ikke værre 
end at Jeg kun behøvede 9 timers 
arbejde Før Fejlen var rettet. 
Fejlen var at punktummet ’. ' var 
Forkert. 

Jeg kontaktede KIM per teleFon og 
kom allerede igennem i 5'te Forsøg. 
Han var helt Fra den J hvilken 
katastroFe, et ' der var Forkert. 
Kim tog straks ind ti! Morse insti¬ 
tuttets 5. aFdeling og Fandt en bog 
omhandlende dette emne. 

Kim kontaktede mig derpå og kunne 
Fortælle at Jeg havde ret, et 
punktum var ikke di di di di di dit 
men di dah di dah di dah. 

Nu er Fejlen rettet og i kan Få 
opdateret Jeres version aF Kims 
Fantastiske Morseprogram ved at 
taste Følgende linier ind, eller 


ved at bestikke KIM med 10 dKr. 
p/us pr i sen For et / agringsmidel, 
se mere om dette i MSX—bib spalten. 


30 Dim A$(127),B$(255):A$(1) 

4 O HA=1O 

100 IF Strig(0)ThenSound8,10:5=5+1: 

R=0:gotol00 
105 Sound 8,O 

130 IF 5<Ha ThenA$=A$+"0" else 
A$+”l " 

180 Data E, T, I, A , N, M, S, U, R, W, D, K, G 
.O.H.V.F, ,L,Æ.P,J,B,X,C.Y,Z,Q,0 
190 Data 47 , 1,39,2,35,3,33, 4 , 32,5, 
1+8,6,56,7,60,8,62,9,63,0,85, . , 
115, ", ",76, ?, i+5, Å , 97, - 
280 PrintCS;” ” ; :ForT=2ToLen(B$(Asc 
(C$))):ForR=lTaHa*3:Next:IFMid$ 
(B$(Asc(C$)), T,1)="0"Then ?".: 
Sound8,10:ForPa=lToHa*2:Next Pa 
:5ound8,O : NextElse?”_";:Sound8 
,10:ForPa=lToHa*8:NextPa:Sound 
8,O:Next 

P. s. 

Som nogen måske har bemærket er der 
Flere ændringer, b/a. har Jeg lavet 
Æ,0,Å og ændret på prik/streg 
Forskellen så den lyder mere rigtig 
Jeg har også sat hastigheden op til 
en grænse hvor det ikke mere BARE 
er prikker & streger men hvor 
morsetegnene eFter et stykke tids 
træning bliver direkte omsat aF 
hjernen til tegn. 

Jeg har aFprøvet programmet på min 
Kortbølgeradio ved at Forbinde en 
RTTY—konverter til Joystick porten. 
Dette virkede ganske godt på de 
Fleste Radioamatørstationer. 

Iøjebtikket kører denne opstilling 
som en Morsemonitor så besøgende 
kan læse på skærmen hvad Jeg 
modtager og hvad Jeg sender. 

Det største problem er computer- 
støjen der gør at RTTY-konverteren 
kun virker på kraFtige stationer. 

H.Q. The Morse Master. 
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For nogen tid siden var der en 
udsendelse i DR i serien Hvælv, der 
omhandlede kaos. Kaos vs. orden er 
et mærkeligt fænomen man har fundet 
i matematikken. 

Af: Kim Andersen 

For at illustrere hvad det går 
ud på har jeg lavet et lille pro¬ 
gram der tegner det såkaldte Figen¬ 
træ (ham der "opfandt” det, var en 
tysker der hed Figenbaum, men det 
ligner faktisk et træ). Figentræet 
udmærker sig ved at det af ufor¬ 
klarlige årsager, veksler mellem 
kaos og orden. Hvilket matematisk 
princip det gøre efter vil jeg ikke 
begynde at udrede, men prøv at 
taste det ind og kig. Man vil ople¬ 
ve at der i træet er nogle "vindu¬ 
er”, hvor der hele træet gentager 
sig. Øverst i træet, er det største 
vindue, hvori træet er at finde tre 
gange, man kalder det da et "tre¬ 
vindue”. I programmet har jeg lavet 
en forstørrelsesfunktion, hvor man 
med to små streger styret af cur- 
sorpilene op og ned og space, kan 
vælge et stykke ud, der skal for¬ 
størres vertikalt. Man vil da op¬ 
dage at der er et uendeligt antal 
"vinduer” igennem træet. 

Vil man have et flottere træ, 
kan man ændre på parameteren der 
angiver antal punkter pr. linie. 

At træet bliver tegnet fra oven 
af, skyldes at det da bliver flot¬ 
tere (hvilket igen beror på det 
matematiske princip det kører på). 

Det andet lille program, kaldet 
snefnug, viser dannelsen af en 
fraktal kurve ud fra et ganske be¬ 
stemt princip. Programmet kører af 
sig selv. 


10 '...Figen 

20 '...Kim Andersen 1988 
30 DEFSNG A-Z 
40 SCREEN2 

50 SPRITES(0)= CHR$(255):SPRITES (1) = 
CHRS(255) 

60 P= 50 'Antal punkter pr. linie 


70 YS=2.9'Startkoordinat p y-akse 
80 YE=4 'Slutkoordinat p y-akse 
90 XS=0 'Startkoordinat p x-akse 
100 XE=1 'Slutkoordinat p x-akse 
110 DY=(YE-YS)/192:Y=YE:B=0:X=.1:D= 
17 

120 DEFFNA(X)=Y#X#(1-X) 

130 F0RT=1T0D:X=FNA(X):NEXT 

140 F0RT=1T0P:X=FNA(X):PSET<256#<(X 

-XS)/(XE-XS)),B),15:NEXT 

150 B=B+1:Y=Y-DY 

160 IFY<=YSTHEN190 

170 IFINKEY$="s"THEN190 

180 GOT0130 

190 Y1 = — 1:SP=1:Y=0:GOSUB220:Y1 = Y 
200 SP=0:Y=191:FORT=0TO200:NEXT: GOS 
UB220 

210 PUTSPRITE0,(0,209),0,0:PUTSPRIT 
El,(0,209),0,0:YE=YE-Y1#DY:YS=YS+(1 
91-Y)#DY:CLS:G0T0110 
220 D=STICK(0) 

230 IFD=1ANDY>0ANDY>Y1+1THENY=Y-1 
240 IFD=5ANDY<191THENY=Y+1 
250 PUTSPRITESP,(124,Y-1),14,SP 
260 IFSTRIG(0)THENRETURN 
270 GOTO220 


10 '...Snefnug 
20 ' 

30 TI = 40:ONINTERVAL=62GOSUB190: INTE 
RVALON 

40 CLS:PRINT”Udregninger foretages! 

50 DIMA(5) ,X(1024) ,Y(1024) 

60 PI=ATN(1)#4:A(1)=0:A(2)=PI/3:A<3 
)=-2*A(2):A(4)=A(2) 

70 FORT=-PI-2*PI/3TOPI+2*PI/3STEPPI 
/3:C(FIX(T)+5)=C0S(T)*(256/243):S(F 
IX(T)+5>=SIN(T)*(256/243):NEXT 
80 T=1:X(0)=0:Y(0)=133 
90 F0RF5=1T04:V=V+A(F5) 

100 F0RF4=1T04:V=V+A(F4) 

110 F0RF3=1T04:V=V+A(F3) 

120 F0RF2=1T04:V=V+A(F2) 

130 F0RF1=1T04:V=V+A(Fl) 

140 X(T)=X(T-l)+C(FIX(V)+5):Y(T)=Y( 

T-l)-S(FIX(V)+5):T=T+1 

150 NEXT Fl,F2,F3,F4,F5 

160 INTERVALOFF:SCREEN2 

170 F0RA=5T0-4STEP-1:GOSUB180:F0RR= 

0TO500:NEXTR,A:G0T0170 

180 CLS:PSET(0,133) , 15: F0RT=4 /S ABS (A 

) T01024STEP4 /S ABS (A) :LINE-(X(T) ,Y(T) 

),15:NEXT:RETURN 

190 L0CATE17,10:PRINTUSING”##”; TI: T 
I=TI-1:RETURN 
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Nu har året gået sin gang 
så kunne jeg jo synge en sang 
Men nu er det bare jeg glemmer 
at vi så mister alle medlemmer 
Jeg vil da undgå al klage og jammer 
og istedet anmelde nogle programmer 

Af: Kim Andersen 


Titel: Matchday II 
Firma: Ocean 

Her har Ocean forsøgt at banke 
et fodboldspil, og det har de gjort 
så forbandet irriterende at det 
endnu ikke er lykkedes mig at få 
scoret et ærligt mål. 

Man spiller to hold mod hinand¬ 
en, enten to spillere eller mod 
computeren. Man styrer konsekvent 
den mand, der er tættest på bolden, 
og computeren sørger for resten af 
spillerne. Aflevering foregår ved 
at man skyder i den retning manden 
peger, med en styrke der bestemmes 
af et særligt "kickometer” (sådan 
kalder de det vist nok). 

Før spillet starter har man et 
hav af modifikations-muligheder. 
Man kan bl.a. bestemme om holdene 
skal spille deffensivt eller offen¬ 
sivt. 

En lille dybt hjerneforladt de¬ 
talje er at målmanden ikke kan tage 
bolden med hænderne, men kun parere 
den, hvilket kan gøre det fuldstæn¬ 
dig håbløst at redde et angreb. 

I sin helhed er spillet nogen¬ 
lunde rimeligt. Man føler dog nogen 
gange at det er som om at compute¬ 
ren bestemmer lidt for meget selv 
til at man har en fair chance for 
at vinde. 

Kvalitet:8 Grafik:8 Action:9 
Lvd:9 BetJeninø:7 Total:8.2 


j Titel: Basket Master 
v*" Firma: Dinamic 

Dette er en virkelig flot, og 
vild morsom basket-ball simulator. 
For at starte med 1oader-bi11edet, 
er det nok det mest humoristiske 
jeg nogen sinde har set. Man ser en 
rigtig basket-freak, der står med 
en bold på fingeren. Når spillet er 
kørt ind, kommer der pludselig liv 
i billedet: Bolden begynder at køre 
rundt på fingeren, spillereren vi¬ 
ser sine hvid-polerede tænder osv. 
Et virkelig originalt påfund. 

Selve spillet er heller ikke af 
lave. Kun en enkelt spiller er der 
på hvert hold, men det er al rige¬ 
ligt. Man kan drible, dunke, dreje 
rundt i luften osv., og laves der 
et godt angreb, bliver det gingivet 
i slowmotion i dobbelt størrelse. 

Skal man finde et enkelt punkt, 
at sætte en finger på, er det at 
der til de to spillere er brugt ka¬ 
rakterer og ikke sprites, som nok 
ville have været på sin plads, men 
det er en så lille detalje, at det 
ikke skal ødelægge noget som helst. 


Kvalitet: 10 Grafik:9 Action:10 
Lyd:9 Betjening:9 Total:9,4 


Titel: Star Seeker 
i Firma: Mirrorsoft 

Et enkelt ikke spille-program 
blev det også til denne gang. Star 
Seeker består af to selvstændige 
programmer. Det ene er et hvor man 
kan studere stjernehimmelen. Man 
indtaster hvor på Jorden man be¬ 
finder sig samt klokken i Green- 
wich-tid. Derefter får man stjerne¬ 
himmelen tegnet. Man har nu mulig¬ 
hed for at få oplysninger på be¬ 
stemte stjerner, eller man kan få 
stjernebillederne tegnet. 

I den anden del kan man få lej¬ 
lighed til at studere solsystemet, 
inklusiv Halleys Komet. I program¬ 
met kan man desuden få opgivet sol 
og måne op- og nedgang samt få 
tegnet månens form. 
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Programmet har udprintningsfaci¬ 
litet til både MSX og Epson printer 
(applaus!), så man kan tage en 
lille lap papir med ud og få forøg¬ 
et sin viden inden for den astrono¬ 
miske front. 

En ulempe ved programmet er at 
det for størsteparten er skrevet i 
basic, så der er en del ventetid, 
når stjerne- og solsystemkort ud¬ 
regnes. 

Kvalitet:10 Grafik:8 Action:- 
Lyd:- Betjening:9 Total:9 

Titel: 30 MSX Hits 
Firma: Aackosoft 

Til slut har vi her en rigtig 
lækkerbidsken for joystick-fanati- 
keren: Ikke mindre end 30 gode 
gamle spil til MSX. Nu kunne man 
måske tro at når man kan få 30 spil 
til en pris på mindre end 10 kr. 
pr. stk. så er det meste nok en 
gang imbecilt basicprogrammering. 
Når man ser rækken af titler, bli¬ 
ver man imidlertid positivt over¬ 
rasket. Man finder så gode spil som 
Boulder Dash I og II, der hører til 
mine absolutte topfavoritter, samt 
Sorcery, der er et orgie af flot 
grafik. Et par musikprogrammer er 
der også blevet plads til. Det ene 
spiller Ravel's Bolero, ved hjælp 
af et holkort, der glider hen over 
skærmen og bl.a. styrer en tromme¬ 
slager der sidder i hjørnet af 
skærmen. 

Som et sidste eksempel vil jeg 
nævne et lille strategi-spi1 ved 
navn Skooter. Man er her en lille 
sjover der skal skoote rundt på et 
antal baner og indsamle fire små 
ting på hver bane. Banerne er op¬ 
bygget som en slags labyrint hvor 
man til tider virkelig skal tænke 
sig om hvilken vej man går, udover 
af man skal tage sig i agt for de 
slemmer uhyre der ubarmhjertigt 
forfølger en. 

At give karakterer til denne 
spillepakke er selvsagt umuligt, 
men kvaliteten i forhold til prisen 
er lige til UG+. 



Ønsker du fortsat at være medlem 
af MSX Brugerklubben og dermed få 
tilsendt Syntax'en 10 gange om året 
bedes du gå på posthuset og betale 
kontingentet på 165,- dkr. Medlem¬ 
mer i de andre skandinaviske lande 
gøres opmærksom på at det vedlagte 
danske giro-kort også kan benyttes 
hos jer. 

Før du betaler, er det meget 
vigtigt at du sikrer dig at du har 
skrevet korrekt navn, adresse og 
telefonnr. Desuden beder vi dig at 
skrive følgende informationer på 
giro-kortet: 

- Alder. 

- Computertype, udstyr. 

- Hvor mange år har du haft com. ? 

- Hvad var bedst/værst i 1988? 

- Hvad synes du generalt om bladet? 

- Hvad skal evt. ændres ved bladet? 

- Ønsker og/eller ideer. 

- Hvad er dine specifikke interes¬ 
seområder (spil, nytteprog, prog¬ 
rammere selv osv.) 

Disse oplysninger vil vi bruge 
til at designe bladet, så det så 
vidt muligt vil dække alles inter¬ 
esser, ønsker og behov. 

Som sidste år foretager vi en 
lodtrækning om to gavekort på 250,- 
dkr gældende hos Datacraft, blandt 
de rettidige indbetalte kontingen¬ 
ter. Ønsker du at deltage skal du 
altså sørge for at besøge posthuset 
inden: 


Game Over! 


>>> søndag d. 15 januar <<< 







UBianiaiBiiiaiaraiaiBiaiaiararararaiHiHiaiBiararajEiaiBiaiEraiEiaraiEiHrarararaBiaiEiHiEiBiHfararai' 


<r/* 

10 1 ***************************** 
20 ' * * 

30'* PETITE * 

40 ' * BOUTIQUE * 

50 ' * * 

go ' ***************************** 

70 ' * * 

80'* SYNTAXEN * 

90 ' * * 

100 '* 1988 * 

110 ’* * 
120 ****************************** 
130 '* * 

140 '* UDVALGT AF: * 

150 1 * * 

160 '* JOHNNY B MUSIK * 

170 '* ************************ 

190 : 

200 CLEAR 1000:ON STOP GOSUB 1010: 
STOP ON 

210 SCREEN 2:COLOR 2,1,1: VDP(1)=VD 
P (1)-64 

220 OPEN "GRP:" FOR OUTPUT AS #1 
230 PSET (70.91).1:PRINT #1,"Petit 
e boutique":CLOSE #1 

240 CIRCLE (127,95) .70,8_5 

250 VDP(1)-VDP(1)+64 
260 DIM A$(69,3) 

270 A$(0,1)""T140":A$(0,2)“"T140": 
A$(0,3)“"T140" 

280 A$(1,1)-"V805L8DEFD":A$(1,2) 

":A$(1,3)“" " 

290 A$ (2,1) ■"V805L2F.E.D.L4DR4R8": 
A$(2,2)-"V8R405L16DR16DR16DR16DR16 
R405L16C+R16C+R16C+R16C+R16R404L4A 
FDR4R8":A$(2,3)-"V8R404L16G+R16G+R 
16G+R16G+R2,R2" 

300 A$(3,1)-"V804L8AB-AG+A05DFAR8R 
4R804L8ABAG+A05DFAR8R4R804L8A" 

310 A$(3,2)-"V6R804L8DDDDDDD-D-D-D 
-D-D-CCCCCC03BBBBBB":A$(3,3) -"" 

320 A$(4,1)-"V804L8B-AG+A05DEFDC+D 
EFAGF+GAGL4DR4R8L8D" 

330 A$(4,2)-"V604L8FFFFFFAAAAAAB-B 
-B-B-B-B-L4B-R4R805L8F" 

340 A$(4,3)“"V604L8DDDDDDFFFFFFGGG 
GGGL4GR4R8R8" 

350 A$(5,1)-"V805L8DC04B05CDCEDC04 
B-AGL2B-L8AR8" 

340 A$(4,3)-"V604L8DDDDDDFFFFFFGGG 
GGGL4GR4R8R8" 


350 A$(5,1)-"V805L8DC04B05CDCEDC04 
B-AGL2B-L8AR8" 

360 A$(5,2)-"V605L8FED+EFEGFEDC04B 
-05L2DL8CR8":A$(5,3)-"" 

370 A$(6,1)-"V8R4R4R804L8AB-AG+AB- 
A05C+04B-AGFEL2GL8FR8" 

380 A$(6,2)-"V604L4AB-05L8CCDC+04B 
05CDCEDC+04B-AGL2B-L8AR8":A$(6,3)- 

390 A$(7,1)“"V8R405L16DR16DR16DR16 
DR16L8EDC+DEDFR8L16DR16DR16DR16DR1 
6L8EDC+DEDFR8L16DR16DR16DR16DR16" 
400 A$(7,2)“"V6R4R16R16R16R16R16R1 
6R16R1604L8B-B-B-B-B-B-B-R8R16R16R 
16R16R16R16R16R1604L8AAAAAAAR8R16R 
16R16R16R16R16R16":A$(7,3)" 

410 A$(8,1)-"V805L8FFFFFFEEEEEEDDD 
DDDL8DR8R8R8R8" 

420 A$ (8,2) *• "V8R8R804L8G+B05D04BR4 
04L8GA05C+04AR404L16AR16AR16AR16AR 
16AR16R8R8" 

430 A$(8,3)="V604L8G+G+G+G+G+G+GGG 
GGGR8R8R8R8R8R8R8R8R8R8R8" 

440 FOR 1=3 TO 8:A$(6+1,1)«A$(I,1) 
:A$(6+I,2)-A$(I,2):A$(1+6,3)-A$(I, 
3):NEXT I 

450 A$(15,2)■"R8V8R405L16B-R16FR16 
B-R16FR16" 

460 A$(15,3)="R8V8R405L16DR16DR16D 
R16DR16" 

470 A$(15,1)="R8V804L2B-." 

480 A$(16,1)="V804L2A.":A$(16,2)-" 
V805R4L16AR16FR16AR16FR16":A$(16,3 
)-RIGHT$(A$(15,3),25) 

490 A$(17,1)="V805L2C.":A$(17,2)=" 
V806R4L1606CR1605FR1606CR1605FR16" 

:A$(17,3)“A$(16,3) 

500 A$(18,1)-"V804L2B-.":A$(18,2)- 
RIGHT$(A$(15,2),25):A$(18,3)=A$(16 
,3) 

510 A$(19,1)“"V8L904A05DF04B-05DFC 
DF04B-05DF04A05DF04G05DF":A$(19,2) 
-"V605L9DDDDDDDDDDDDDDDDDD":A$(19, 
3)="" 

520 A$(20,2)="V8R405L16E-R16E-R16E 
-R16E-R16" 

530 A$(20,3)="V8R405L16CR16CR16CR1 
6CR16" 

540 A$(20,1)="V804L2B-." 

550 A$(21,1)="V804L2A.":A$(21,2)=A 
$(20,2):A$(21,3)=A$(20,3) 

560 A$(22,3)-"V805R4L1606CR1605GR1 
606CR1605GR16" 

560 A$(22,3)■"V805R4L1606CR1605GR1 
606CR1605GR16" 
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570 A$(22,1)-"V805L2C.":A$(22,2)=A 
$(20,2) 

580 A$(23,1)-"V804L2B.":A$(23,2)=" 
V8R4L1605BR16GR16BR16GR16":A$(23,3 
)=A$(22,3) 

590 A$(24,1)="V805L2D,":A$(24,2)-" 
V806R4L16DR1605GR1606DR1605GR16: A 
$(24,3)=A$(23,3) 

600 A$ (25,1) ="V805L2C." : A$(25,2)=A 
$(22,2):A$(25,3)=A$(22,3) 

610 A$(26,1)-"V8L904B05E-GCE-GDE-G 
CE-G04B-05E-G04A05E-G":A$(26,2)= "V 
6L905E-E-E-E-E-E-E-E-E-E-E-E-E-E-E 
-E-E-E-":A$(26,3)■"" 

620 A$(27,1)-"V804L2A.":A$(27,3)=A 
$(16,3):A$(27,2)="R4V804L16B-R16B- 
R16B-R16B-R16" 

630 A$(28,1)»"V804L2G.":A$(28,2) =A 
$(27,2):A$(28,3)=A$(27,3) 

640 A$(29,1)="V804L2B-.":A$(29,2)= 
RIGHT$(A$(15,2),25):A$(29,3)-RIGHT 

<* ( L<ts M R or 

650 A$(30,1)-"V804L2A.":A$(30,2)=A 
$(16,2):A$(30,3)-A$(16,3) 

660 A$(31,1)-"V805L2C.":A$(31,2)-A 
$(17,2):A$(31,3)-A$(17,3) 

670 A$(32,1)="V804L2B-.":A$(32.2) - 
A$(18,2):A$(32,3)=A$(18,3) 

680 A$(33,1)="V8L405E-DC+D04BG":A$ 
(33,2)»"V5L405GGGFFF":A$(33,3) 

690 A$(34,1)-"V805L2E-.L8E-E-E-E-L 
4E-":A$(34,2)="V805L2G.L8GGGGL4F": 
A$(34,3)-"V605L2E-.L8E-GCE-04L4G" 
700 A$(35,1)="V604L4E-FG-L2E-L4E-L 
4DE-FL4DDD":A$(35,2)="V805L4G-G-G- 
L2G-L4G-L4FFFDDD":A$(35,3)-"V805L4 
E-E-E-L204B-L405CL405DDD04L4B-AG" 
710 A$(36,1)="V604L8FGAB-05C04B-AG 
FE-DC":A$(36,2)="V805L8E-E-E-E-E-E 
-E-E-E-E-E-E-":A$(36,3)="V804L8FFF 
FFF05CC04GGAA" 

720 A$(37,1)-"V805L4D.L8DC04B-L2AR 
8":A$(37,2)-"V804L4B-.R8R8R8R2R8": 
A$ (37,3)“"V603L4B-.L8B-B-B-L2AR8" 
730 FOR 1=3 TO 8:A$(35+1,1)-A$(I,1 
):A$(35+1,2)=A$(1,2):A$(35+1,3)-A$ 
(1,3):NEXT I 

740 A$(44,1)-"V805L4F.06L8C05AFL4E 
.L806C05AEL4D.L8DDDL2DL16CR16CR16" 
750 A$(44,2)="V604L4A.L8AAAL4A.L8A 
AAL4A.L8GFEL2DL16CR16CR16":A$(44,3 

760 A$(45,1)-"V805L4CDEFGA06L4C.L8 
CCCL2C." 

770 A$(45,2)-"V604L4CCCAAAL405C.04 
L8B-GFL2E." 


780 A$(45,3)="V8R4R4R4R4R4R405L4E. 
L8EEEL2E." 

790 A$(46,1)“"V805L8GAB-GEFGECDEC" 
800 A$(46,2)-"V605L8EFGECDEC04EFGE 
":A$(46,3)="" 

810 A$(47,l)-"Va05L2D.D." 

820 A$(47,2)="V6Q4L2F.E.":A$(47,3) 

830 FOR 1=1 TO 3:A$(48,I)=A$(46,1) 

:NEXT I 

840 A$(49,1)-"V805L4D.04L8AG+A05L2 
C." 

850 A$(49,2)="V604L4F.L8FFFL2E.":A 
$(49,3)="" 

860 A$(50,1)="V805L4F.L806C05AFL4E 
.06L8C05AEL4D.L8DDDL4DL8DL16DR16DR 
16DR16" 

870 A$(50,2)="V604L4A.L8AAAL4A.L8A 
AAL4A.L8GFEL4DL8DL16DR16L16DR16DR1 
6":A$(50,3)="" 

880 A$(51,1)="V805L4DE-C+DF+AL2B-. 
L8B-B-B-B-B-B-" 

890 A$(51,2)="V604L4F+F+F+F+F+F+L2 
G.L8B-AGAB-05D" 

900 A$(51,3)="V6R4R4R405L4CCCR2.R8 
R8R8R8R8R8" 

910 A$(52,1)="V805L4DDDD-D-D-CCC" 
920 A$(52,2)="V805R4L4B-B-R4L4B-B- 
R4L4AA" 

930 A$(52,3)="V604L4DDDFFFAAA" 

940 A$(53,1)="V805L8AGFEDC04L4BBBB 
-B-B-AL8AAAAL4AR4R4" 

950 A$(53,2)="V8R8R8R8R8R8R805R4L4 
GGR4L4GGL4FL8FFFFL4FR4R4" 

960 A$(53,3)="V6L8CCCCCC04L4DDDEEE 
FL8AF05C04AL405FR4R4" 

970 FOR 1=44 TO 53:A$(10+1,1)=A$(I 
,1):A$(10+1,2)=A$(I,2):A$(10+1,3)= 
A$(I,3):NEXT I 

980 FOR 1=3 TO 8:A$(61+1,1)=A$(I,1 
) :A $(61 + 1,2)=A$(I,2) :A$(61 + 1,3)-A$ 
(1,3):NEXT I 

990 FOR 1=0 TO 69:PLAY "XA$(I,1); M 
,"XA$(1,2);","XA$(1,3);":NEXT I 
1000 IF PLAY(l)—1 THEN 1000 
1010 FOR 1=0 TO 100:NEXT I:COLOR 2 
,1,8:IF INKEY$=" " THEN 1020 ELSE 
1010 

1020 SCREEN 0:COLOR 2,1,1 





FORBEHOLDT POSTVÆSENET 



Gunsmoke - (Capcorn) Det vilde vesten 
er blevet endnu vildere, som sherif 
kan du kun stole på dig selv, oq 
skyde band i terne før dé rør sig; i 
westernbyen, ved jernbanen, i bjerq- 
slugten og på floden de er alle 
vegne 144,-- 

Bmx Simulator - (Code Masters) Fuld fart 
frern gennem grusbanen, kør din mod¬ 
stander i sænk inden han gør det mod 
dig, 1/2 spillere 38.- 

Danger Mouse In Black Forest Chat eau - 
(Alternative) menu-styret adventure m. 
grafik, i to dele ' 38,- 

Hole in One Professionel - (HAL) bedste 
golf, 2 baner m. hver 18 huller + lav 
egne baner, 1/2 spillere 277.- 

Hole in One Special - (HAL) MSX2, 2 sæt 
18 huls baner, 18 golfkøller, 3 spil¬ 
typer for 1/2 spillere, 128K 295.- 

Elite - (Firebird) det store inter galan- 
tiske rumeventyr i 3D vektor-grafik, 
naviger og land på nye planeter, bekæmp 
rumpirater som vil q’ive diq et rygte 
som toppen af eliten, en fin blanding 
af action oq strateqi, fyldig bag- 
grundshistorie og instruktioner 

kassette 215;- disk 249.- 

International Karate - (Endurance Games) 
karate hele jorden rundt, for 1/2 spil¬ 
lere 68. ~ 

Colasus Chess 4.0 - (CDS) bedste skak, 
3D/2D synsvinkel, fortryd træk, demo- 
spil, opstil brikker, réplay, variabel 
sværhedgrad, den dygtigeste computer 
modstander (ratinq' 1850+ELQ), program 
engelsk tekst, hollandsk instruI. 144.- 

Tetris - (Mirrorsoft.) ikke helt som andre 
puslespil, brikkerne kommer flyvende, 
du skal være hurtig men tab ikke over¬ 
bi i k k et, fæn g s lend i og a n d e r lede s 6 8» -■ 


Red Light af Amsterdam - (Aackosoftl- 
strippoker rned flotte video digitali¬ 
serede billeder, for I1SX2 computere 

kassette 78, - 


World Garnes - (Epyx) rejs kloden rundt; 
for at dyste i 8 specielle sportsqrene 
- vægtløftning, tøndesprinq på skøjter, 
udspring fra klipper, slalom, tømmer 
rulning, tyrer idning ' rodeo, tørnrner 
kastninq oq surnobrySninq - sportsspil 
fra Epyx med stor variation 144.- 

Basket Master - (l'rnagine) Bliv på tæerne 
rnens du dribler bolden ned af banen med 
modstanderen lige i hælende, rned en ro¬ 
lig hånd og et sikkert øjemal kast bol¬ 
de?)-) mod kurven. Forsvar din zone, tack¬ 
le modstanderen, følg tiden, løb, 
spring og dunk bolden gennem nettet, se 
dine bevægelser i slow-rnotion gen¬ 
tagelse. For 1/2 pers. 123. ~ 

Match Day II - (Ocean) fodbold for 1/2 
spillere £511 e r 2 s p i 1. mod c o rn p u t e r e n, 
m. variabel skucistryke, head mg spil 
en kamp eller en hel cup 128.- 

Head over Heels - (Ocean) Hr. Head og Mi 
Heels er tilsammen en mest er spion rned 
de utroligeste egenskaber, men først rnå 
de finde hinanden i det store slot, 
flot 31) grafik, arc.adv. 68.- 

The MSX Red Book - (Kuma) qiver alle op¬ 
lysninger om MSXs interne opbygning, et 
‘"must" for alle maskinkode kodere 14 . 

5.25" neutral disk, 2 sidet, 20 stk. 

5,5" neutral disk, 2 Bidet., ' 10 stk. 140. - 
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Salg til hele Skandinavien. Ved køb tf-fa 



